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PREFAZIONE 


Molti personal computer hanno un ottimo prezzo in rapporto 
alle prestazioni (che poi è la condizione principale per la loro 
diffusione) ma gli Amstrad sono in assoluto i computer ad 8 
bit con il rapporto più favorevole tanto da essere stati i primi 
home computer ad essere venduti completi di monitor mono- 
cromatico o a colori. 

Oltre alla loro convenienza gli Amstrad offrono anche delle 
prestazioni molto interessanti, e questo è anche dovuto al 
fatto che, essendo arrivati sul mercato da non molto, hanno 
potuto riassumere gran parte di quanto di meglio era stato 
fatto ed anche evitare alcuni degli errori commessi dai primi 
produttori di home computer. 

Particolarmente interessante è senz’altro il Locomotive BA¬ 
SIC dei vari CPC 464, CPC 664 e CPC 6128, che, oltre ad es¬ 
sere tra i più completi, dispone anche di alcune caratteristi¬ 
che innovative, come le istruzioni AFTER ed EVERY che con¬ 
sentono di offrire all’utente alcune forme di multitasking (in 
particolare l’elaborazione alternata di più parti del pro¬ 
gramma). 

Nei programmi del libro, che sono di tipo molto vario, vengo¬ 
no usate appunto le molte caratteristiche di questo compu¬ 
ter. 
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USO DEI PROGRAMMI 


Tutti i programmi sono registrati sulla cassetta allegata al li¬ 
bro con i nomi di Al, A2, eccetera, fino ad A23. 

I programmi possono essere caricati in memoria tramite l’i¬ 
struzione: 

LOAD “nome programma” 

dove ‘nome programma’ è rappresentato appunto da Al, A2, 
eccetera, come indicato nella lista nella pagina seguente. 
Se si vuole caricare in memoria il primo programma che si in¬ 
contra sul nastro è possibile usare l’istruzione: 

LOAD ” 

Se si vuole che il programma giri automaticamente subito do¬ 
po essere stato caricato si può usare l’istruzione: 

RUN “nome programma” 

oppure soltanto 

RUN ” 

Durante il funzionamento, il programma può essere fermato 
momentaneamente premendo una volta il tasto ESC (per 
continuare basta premere uno dei tasti), o definitivamente 
premendo due volte sempre il tasto ESC. 

Infine se si vuole resettare il computer senza spegnerlo oc¬ 
corre premere insieme i tasti CTRL - SHIFT - ESC. 
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Programma 


Nome 


ISTOGRAMMI VERTICALI Al 

ISTOGRAMMI ORIZZONTALI A2 

CILINDRI 3D A3 

DESIGN CARATTERI A4 

DISEGNATORE GRAFICO A5 

PLOTTER A6 

CURVE MATEMATICHE A7 

NEW YORK A8 

DISEGNI DI LINEE A9 

ITALIA AIO 

NUMERI DIGITALI All 

LETTURA VELOCE Al 2 

CRONOMETRO Al 3 

SCRITTE PUBBLICITARIE A14 

CONTAPEZZI Al 5 

FISICA DEI REATTORI NUCLEARI Al 6 

PIANO 4-OTTAVE Al 7 

PROGRAMMATORE DI SUONI Al 8 

SIMMETRICO Al 9 

TIRO ALLA FUNE A20 

ROULETTE A21 

FLIPPER GIAPPONESE A22 

ROMBOSPIRALE A23 



ISTOGRAMMI 

VERTICALI 


Il programma Istogrammi Verticali è il primo di tre program¬ 
mi di ‘Business Grafica’ vale a dire della rappresentazione in 
forma grafica di dati economici, tecnici, scientifici, eccetera. 
Il programma consente di visualizzare, sotto forma di barre 
verticali, fino ad otto valori numerici contemporaneamente. 
Facendo girare il programma, il computer chiede per prima 
cosa di inserire il titolo del grafico, della lunghezza di massi¬ 
mo 80 caratteri. 

Quindi chiede l'inserimento degli otto argomenti relativi ai 
dati e dei corrispondenti dati numerici. 

Se si desidera inserire meno di otto dati, ad esempio si vuole 
un grafico con solo 5 istogrammi, è sufficiente premere 
RETURN durante Pinserimento dell’argomento del sesto i- 
stogramma per far passare il programma alla fase di disegno 
del grafico. 

I valori numerici dei dati inseriti devono essere compresi tra 0 
e 5000, penserà poi il programma ad usare la scala più adatta 
ai valori inseriti; per esempio, se il valore più alto inserito è 
897, il programma disegnerà un grafico con un valore massi¬ 
mo di 1000. 

Se i valori da inserire sono più grandi di 5000, basta indicare 
nel titolo del grafico un fattore di moltiplicazione (ad esem¬ 
pio Lire X1000) ed inserire dei valori numerici divisi per mille. 
Dopo la visualizzazione del grafico, è possibile passare all’in¬ 
serimento dei dati per un nuovo grafico, premendo il tasto N. 
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1O00 * Business Grafica t 

1010 ISTOGRAMMI VERTICALI 

1020 •- ..-. 

1030 " di Gaetano Marano 

1040 ..-... 

1050 ' < c > Gruppo Editoriale Jackson 

1060 •" .-. 

1070 MODE 1 

1080 INK 1,26:IN K 0,8:INK 2,24:INK 3,3 
1090 PEN 1: PAPER 0 :BORDER 0:CLS 
1100 SOUND 1,0,0,0:SOUND 2,0,0,0 
1110 SOUND 4,0,0,0 

1120 ... 

1130 DIM D(8):DIM D$<8) 

1140 FOR 6=1 TO 8 
'1150 D<6> =0 : D$<6> = " " 

1160 NEXT G 
1170 N=0•CLS 
1180 Z*=SPACE$<40> 

1190 Z$=Z$+Z$ 

1200 INPUT "Inserire titolo grafico (max 
S0 caratteri) e premere RETURN 

",T* 

1210 IF LEN( T$)>80 THEN T$ = L£FT$CT$,80 ) 
1220 IF LEN < T$)<80 THEN T*=T*+ LEFTf(Z$,8 
0-LEN(T$)) 

1230 FOR 6=1 TO 8 
1240 CLS 

1258 FRI NT "Inserire argomento istogramm 
a " ; 6 ; " < m a x 8 caratteri) e premere RETURN 
o premere solo RETURN per meno di 8 
dati" 

1260 PRINT 
1270 INPUT R* 

1280 IF R$ ="" THEN 1380 

1290 IF LEN < R$)>8 THEN R$=LEFT$(R$,8) 

1300 D$(6)=R$ 

1310 PRINT 








1320 PRINT "Inserire valore”6, " <0__500 
) ";"e premere RETURN" 

1330 PRINT 
1340 INPUT V 

1350 IF V<0 OR Y>5000 THEN GOTO 1320 

1360 6(G>=Y 

1370 NEKT 6 

1380 CLS:R=0 

1390 FOR 6=1 TO 8 

1400 IF D<6)>R THEN R = M6> 

1410 NEXT 6 
1420 RESTORE 
1430 FOR 11 = 1 TO 9 
1440 REhkli N$,S$ 

1450 IF VAL(N$)>=R THEN 1470 
1460 NEXT M 
1470 N=VAL<N$)/196 
1480 PEN 0:PAPER 2 

1490 LOCATE 3,24:PRINT " PREMERE N PER 
UN ALTRO GRAFICO " 

1500 PEN 1:PAPER 6 
1510 FOR 6=1 TO 8 
1520 C=3+6*3 
1530 A$=CHR$<6+64> 

1540 LOCATE C,22:PRINT A$ 

1550 NEXT 6 

1560 LOCATE 31,SPRINT N $ 

1570 LOCATE 31,15:PRINT S* 

1580 LOCATE 3Ì,21:PRINT "0" 

1590 PEN 0 : PAPER 1 

1600 LOCATE 1,1 ;PRINT LEFT*<T$,40> 

1610 LOCATE 1,2 :PRINT RI6HT$(T$,40) 

1620 PEN 1 : PAPER 0 

1630 FOR 6=0 TO 7 

1640 L=I NT < G/3 ) +4 

1650 IF 6=0 OR 6=3 OR 6=6 THEN C=3 

1660 IF 6=1 OR 6=4 OR 6=7 THEN C=15 

1670 IF 6=2 OR 6=5 OR 6=8 THEN C=27 



1680 A $ = C H R $ < 6 + 6 5 > 

1690 PEN 0 : PAPER 1 
1700 LOCATE C,L:PRINT A* 

1710 PEN 1:PAPER 0 

1720 LOCATE C+2,L:PRINT D*<6+1> 

1730 NEXT G 

1740 POR 6=68 TO 268 STEP 20 
1750 PLOT 55,6:DRAW 455,6,3 
1760 IF 6=68 OR 6=168 OR 6=268 THEN PLOT 
55,6 : DRAM 475,6,3 
1770 NEXT 6 

1780 PLOT 55,70 :DRAW 55,268,3 
1790 PLOT 455,70 : DRAM 455,268,3 
1800 FOR 6=1 TO 8 
1810 X*70+<6-1>*47.7 
1820 V=INT<D(6)/N + 0.5) 

1830 FOR M=X TO X+35 

1840 IF V>0 THEN PLOT PI, 69: DRAM M, 70 + 0,2 
1850 NEXT M 
1860 NEXT 6 
1870 H$=INKEY$ 

1880 IF H*="N" OR N H$ = "n" THEN RUN 
1890 GOTO 1870 
1900 RETURN 

1910 DATA "10","5","20","10","50","25", " 
100","50","200","100","500","250","1000" 
1920 DATA "500","2000","1000","5000","25 
00 " 



ISTOGRAMMI 

ORIZZONTALI 


Il funzionamento del programma Istogrammi Orizzontali è 
del tutto simile a quello del programma precedente tranne 
per il fatto che i dati vengono visualizzati in maniera diversa 
(appunto orizzontalmente). 

Inoltre i dati inseriti possono essere compresi tra 0 e 6000 
(invece di 5000). 


1000 ' * Business Gràfica * 

1010 '' ISTOGRAMMI ORIZZONTALI 

1020 / . ■ - -.-. 

1030 ’ di Gaetano Marano 

1040 •' . ..-.- 

1050 / <c> Gr.ArPO Editoriale Jackson 

10G0 •' .-.-.. 

1070 MODE 1 

1080 INK 1.26: INK 2,11: INK 0,0:INK 3 24 
1090 PEN 1 ÉuRBEk 0:PAPER 0:CLS 
1100 SOUNB i,a,0,u:SOUNB 2,0,0,0 
1110 SOUND 4,8,0,0 

1120 ■' ... 

1130 BIM B < 8 ) : I> IM B$(8> 

1140 FOR 6=1 Tu 8 
1150 B < 6 "> =0 :t* < G ) = “ " 

1160 N£XT G 
1170 N = Ù ai) 

1180 Z $ = 8 P A C E $ < 4 0 ) 

1190 Z$=Z$+Z* 

1200 INPUT "Inserire titolo grafico (max 
80 caratteri) e premere RETU 
RN ", T$ 
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1218 IF LEN < T$ > >80 THEN T$=LEFT$<T$,80) 
1228 IF LEN<T$)<80 THEN T$=T$+LEFT$( Z $,8 
0-LENCT*)) 

1238 FOR 6=1 TO 8 
1248 CLS 

1250 PRINT "Inserire argomento isto«»ramm 
a";6;"(«ax 8 caratteri) - e premere RETURN 
o premere solo RETURN per meno di 8 
dati. " 

1268 PRINT 
1270 INPUT R$ 

1280 IF R$ ="" THEN 1388 

1290 IF LEN<R$>>8 THEN R*=LEFT$<R*,8) 

1300 £$<6>=R$ 

1310 PRINT 

1320 PRINT "Inserire valore"; 8 ;"(0__6000 
) ";"e premere RETURN" 

1338 PRINT 
1340 INPUT V 

1350 IF V<0 OR V>6000 THEN GOTO 1320 

1368 D(6 ) = V 

1370 NEXT 6 

1380 CLS : R = 0 

1390 FOR 8=1 TO 8 

1480 IF IKG)>R THEN R = MG) 

1410 NEXT G 
1420 RESTORE 
1430 FOR 11 = 1 TO 9 
1448 R£AI> N$,S$,G$ 

1450 IF VAL<N$)>=R THEN 1470 

1460 NEXT M 

1470 N=VAL(N$)/475 

1480 LOCATE 5,24:PEN 0 : PAPER 2:PRINT " 
PREMERE N PER UN'ALTRO GRAFICO ":PEN 1: 
PAPER 8 

1490 LOCATE 39 - I NT<LEN<N$)/2),21 :PRI NT N 
t 

1500 LOCATE 29-INT<LEN(S$)/2),21:PRINT S 



$ 

1510 LOCATE 19-INT<LEN<Q$)/2>,21 ; PRINT Q 

$ 

1520 LOCATE 9,21:PRINT •0'* 

1530 PEN 0•PAPER 1 

1540 LOCATE 1,SPRINT LEFT$(T$,40> 

1550 LOCATE 1,2:PRINT R I6HT* < T$ , 4.0 ) : PEN 
1 

1560 PEN 1 : PAPER 0> 

1570 L = 18 

1580 FOR 6=1 TO 8 

1590 C = 9-LEN < D$ < 6 > ) 

1600 LOCATE C,L:PRINT D$<6> 

1610 L=L-2 
1620 NEXT 6 

1630 FOR 6*135 TO 615 STEP 32 
1640 PLOT G,105 : DRAM 6,360,3 
1650 IF 6*135 OR 6=295 OR 6=455 OR 6=615 
THEN PLOT G,90:DRAH 6,360,3 
1660 NEXT 6 

1670 PLOT 135,105:DRAM 615,105,3 
1680 PLOT 135,360 : DRAM 615,360,3 
1690 FOR 6=1 TO 8 
1700 Y=130+<6-l>*32 
1710 V=INT(M6)/N + 0.5> 

1720 FOR M = Y-22 TO Y 

1730 IF V>0 THEN PLOT 13ó,M:DRAW 135+V,M 

,2 

1740 NEXT M 
1750 NEXT 6 
1760 H*="A" 

1770 H*= INKEY$ 

1780 IF Hf = "N 11 OR H$="n" THEN RUN 
1790 GOTO 1770 
1800 RETURN 

1810 DAT A “15'', “10", "5", "30", "20'', "10", “ 
60","40","20","150","100","50","300",“20 
0 " 





CILINDRI 

TRIDIMENSIONALI 


L’ultimo programma di Business Grafica visualizza un massi¬ 
mo di sei dati sotto forma di cilindri tridimensionali; i dati in¬ 
seriti possono essere compresi tra 0 e 9999. 


1000 '■ * Business Grafica * 

1010 - CILINDRI TRIDIMENSIONALI 

1020 ' . 

1030 ' di Gaetano Marano 

1040 •' .-. 

1050 <c> Gruppo Editoriale Jackson 

1060 ' ..-. 

1070 MODE 1 

1030 INK 2,15: INK 0,1:INK 1,26:INK 3,18 
1090 PEN 1.BGRDER 1:PAP£R 0:CLS 
1180 SOUND 1,0,0,0 : SOUND 2,0,0,0 
1110 SOUND 4,0,0,0 

1120 •' -.-.-. 

1130 DIM D(6) : DII1 B $ < 6 > 

1140 FOR 6=1 TO 6 
1150 B(G)=0:B$<6)="" 

1160 NEXT 6 
1170 N=0:CLS 
1180 2$=SPACE$<40> 

1190 Z$=Z$+2$ 

1200 INPUT "Inserire titolo grafico (max 
80 caratteri) e prendere RETU 
RN "j T$ 

1210 IF LEN < T$)>80 THEN T$=LEFT$<T$,80> 
1220 IF LEN < T$)<80 THEN T$=T*+LEFT*<Z$,8 
0-LEN(T$)) 








1230 FOR 6=1 TO 6 
1248 CLS 

1250 PRINT "Inserire argomento CILINDRO" 
;6;"<max 5 caratteri) e premere RETURN o 
premere solo RETURN per meno oli 8 da 

ti " 

1260 PRINT 
1270 INPUT R$ 

1280 IF R$ ="" THEN 1380 

1290 IF LEN<R$>>5 THEN R$=LEFT$(R$,5) 

1300 D$(6)=R$ 

1310 PRINT 

1320 PRINT "Inserire valore"; 6;"<0__9999 
>"i"e Premere RETURN " 

1330 PRINT 
1340 INPUT V 

1350 IF Y<0 OR V>9999 THEN GOTO 1320 
1360 D< 6)= Y 
1370 NEXT 6 
1380 CLS:R=« 

1390 FOR 6=1 TO 6 

1400 IF IK6 ) >R THEN R = I> < 6 > 

1410 NEXT 6 

1420 N = R/200 

1430 PEN 0:PhPER 3 

1440 LOCATE 4,24 :PRINT " PREMERE N PER 
UN'ALTRO GRAFICO " 

1450 PEN 1:PAPER. 0 
1460 FOR 6=1 TO 6 
1470 C=G*6-3 

1480 IF LEN<»$<6)><5 THEN ì>$ ( 6 > = D$ ( 6 ) + LE 
FTt<" ",5-LEN<»$<6>)> 

1490 LOCATE C,22'.PRINT, D$<6) 

1500 NEXT 6 

1510 PEN 0:PAPER 1 

1520 LOCATE 1,1-PRINT LEFT$<T$,40> 

1530 LOCATE 1,2:PRINT RI6HT$<TI,40) 

1540 PAPER 0 ; PEN 1 



1550 U=0 

1560 FOR 6=1 TO 6 

1570 IF 6=1 OR 6=4 THEN C=1 

1580 IF 6=2 OR G=5 THEN C=2 

1590 IF 0=3 OR 6=6 THEN C*3 

1600 IF K6>*0 THEN GOTO 1760 

1610 F = MG)/N 

1620 FOR P=1 TO 360 

1630 X=70:V=90 

1640 AA=X-40*COS<P> 

1650 BB=V-15*SIN<P> 

1660 DE6 

1670 PLOT AA+U,BB+F,C 

1688 IF BB> = V THEN 1700 

1690 PLOT AA+U,BB+F:BRAW AA+U,BB,C 

1700 NEXT P 

1710 U=U+96 

1720 A* = STR*<INTUKG>>> 

1730 C = 616-4 

1740 L = 18-(H6)/N + 10)/15 
1750 LOCATE C.L^PRINT A$ 

1760 NEXT 6 
1770 H$=INKEY$ 

1780 IF H$ = "N" OR H$ = "ri" THEN RUN 
1790 GOTO 1770 









DESIGN 

CARATTERI 


I caratteri dell’Amstrad sono ridefinibili tramite le istruzioni 
SYMBOL e SYMBOL AFTER (per il loro uso vedere il 
manuale) per cui è possibile creare i simboli che occorrono 
nel programma anche se questi non sono tra quelli disponibili 
nel set di caratteri del computer, inoltre, usando più caratteri 
definiti, si possono realizzare delle figure complesse senza 
dovere usare una lunga serie di istruzioni grafiche. 

Per semplificare il disegno dei caratteri definibili si può usare 
il programma ‘Design Caratteri’ che consente di disegnare, 
modificare e stampare uno o più caratteri definiti, aventi una 
matrice di 8 X 8 punti e calcolare i codici da inserire nelle 
istruzioni SYMBOL. 

II disegno del nuovo carattere si può realizzare usando i 
quattro tasti di controllo cursore; oltre a questi tasti si può 
usare il tasto M per spostarsi senza disegnare o perfare delle 
modifiche, il tasto D per tornare al modo disegno, il tasto X 
per avere i codici del carattere disegnato fino a quel momen¬ 
to, il tasto C per avere la copia su stampante del carattere e 
dei codici ed il tasto CLR che annulla tutto e fa ripartire il 
programma. 

Il tasto C va premuto, ovviamente, se al computer è collegata 
una stampante. 


1900 1 DESIGN C tì R. tt T T E RI * 

1010 .-. 

1020 ' di Gaetano Marano 

1030 ' .-.- 

1040 ' (c) Gruppo Editoriale Jackson 

1050 .-... 

1060 MODE 1•INK 0,0:INK 1,26 
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1070 INK 2,li:INK 3,6 
1080 PEN 1:PAPER 0 :BORDER 0:CLS 
1890 SOUND 1,0,0,0 : SOUND 2,0,0,0 
1100 SOUND 4,0,0,0 

1110 ' -.-... 

1120 C$ = CHR$ <150):D$ = CHR$<154):ES*CHR*(1 
56 >:F*=CHR$<149>:IS=CHR*<147>:M$*CHR$(15 

3) 

1130 N$=CHR*<144>:0*=CHR$<143>:R*=CHR*<2 
46):Q$=CHR$(247):R$=CHR*<244>:S$=CHR$<24 
5) 

1140 POR W=1 TU 3 
1150 N$=N$+N*:D#=D$+D* 

1160 NEXT W 
1170 DIN T < 8,8 > 

1180 DIM S<S> 

1190 L=2:C=15:D=1 

1200 LOCATE 14,1-PRINT C$;D$;E* 

1210 FOR A=2 TO 9 

1220 LOCATA 14,A :PRI NT F*;N*;F$ 

1230 NEXT A 

124W LOCATE 14,10:PRINT I*;D$;M$ 

1250 PEN 2 

1260 LOCATE 5,14:PRINT P$;“ " ;Q” ";R*; 
“ ";S$;" __ Tasti per disegnare" 

1270 LOCATE 5,15 : PRINT "D_Bise«r.o M-Mod 
i-fiche C_Copy" 

1280 LOCATE 5,16-PRINT "X-Dati CLR.N 

uovo carattere" 

1290 PEN 1 
1300 GOSUB 1568 
1310 K$=INKEV4 

1320 IF K$<>" " THEN K = ASC(K$) 

1330 IF K = 16 THEN RUN 
1340 IF K=240'THEN GOSUB 1460 
1350 IF K=241 THEN GOSUB 1480 
1360 IF K=242 THEN GOSUB 1500 
1370 IF K = 243 THEN GOSUB 1520 




1380 IF K = 68 OR K=100 THEN 60SUB 1540 

1390 IF K = 77 OR K=109 THEN 60SUB 1550 

1480 IF K=88 OR K = 120 THEN 60SUB 1560 

1410 IF K = 67 OR K = 99 THEN 60SUB 1650 

1420 LOCATE C/L-PRINT 0$ 

1430 IF I> = 0 THEN LOCATE C,L=PRINT CHR*<1 
44 > 

1440 T(L-1,C"14 > =D 

•1450 K$=“ " : K = 0 : GOTO 1310 

1460 IF L=2 THEN RETURN 

1470 L»L-1 : RETURN 

1480 IF L = 9 THEN RETURN 

1490 L = L + 1: RETURN 

1500 IF C=15 THEN RETURN 

1510 C = C-1 ; RETURN 

1520 IF C = 22 THEN RETURN 

1530 C = C + 1: RETURN 

1540 t = l : RETURN 

1550 D = 0: RETURN 

1560 FOR A=1 TO 8 

1570 XL=0 

1580 FOR B=1 TÙ 8 

1590 XL = XL + 2 A < 8-B > *T < A,B > 

1600 S(A)=XL 
1610 NEXT B 

1620 LOCATE 24,A+i:PRINT XL;“ 

1630 NEXT A 

1640 RETURN 

1658 60SUB 1560 

1660 FRI NT #8 

1670 THUNT #8 

1680 PRINT #8 

1690 FOR A=i TO 8 

1700 P$=" M 

1710 FOR B=1 TO 8 

1720 IF T C A,B> = 1 THEN P$ = P$+"Ù” 

1730 IF T<A,B)*0 THEN P$=P$+"-“ 

1740 NEXT B 
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DISEGNATORE 

GRAFICO 


Con i molti caratteri grafici dell’Amstrad ed il programma Di¬ 
segnatore Grafico si possono realizzare facilmente dei di¬ 
segni a bassa risoluzione. 

Il programma chiede alPinizio di inserire il colore desiderato, 
tra i 27 disponibili (da 0 a 26), per il bordo, il fondo e i caratteri 
da disegnare. 

Quindi il disegno può essere realizzato tramite i quattro tasti 
di cursore. 

Il carattere o il simbolo grafico usato in quel momento può es¬ 
sere cambiato premendo uno dei tasti (per i caratteri) o usan¬ 
do i tasti TAB e ENTER (per i simboli), tasti che fanno rispetti¬ 
vamente diminuire o avanzare di uno il codice del carattere 
visualizzato (per il set di caratteri vedere il manuale del 
computer). 

Per cancellare basta premere lo spazio e muoversi lungo la 
parte da eliminare. 

Infine se si preme il tasto CLR si fa ripartire il programma dal¬ 
l’inizio. 

Il disegnatore usa un’area dello schermo di 40 X 24 caratteri. 


1 y y a i $ d i a£ a N h f u R E a R A FIC 0 % t 

1818 - - 

1828 d i a a e t a fi o il a r a n o 

18 38 -- 

1 a48 <. c .> ap upp o £d 1 1 or i a 1 a Jac ksofi 

1858 •' - 

i868 MOLE 1:1NK 1,26:INK 3,15 
1878 INK 2,11:IN K 8,8 
1 a y a r E N 1 ; i-‘ tt PER 8 : B ù R i E R a • c L y 


.17 







1090 

SOUND 1,0,0,0 : SOUND Z, 0,0,0 


1100 

SOUND 4,0,0,0 


•i a 4 a 

/ __ _ 


1120 

INPUT "Inserir# colore BORDO <0-- 

26 

) 

e premere RETURN ";B 


1130 

PRINT 


1140 

IF B<0 OR B>26 THEN 1120 


1150 

INPUT "Inserire colore FONDO <8-- 

26 

> 

e premere RETURN 


1160 

PRINT 


1170 

IF P<0 OR P>26 THEN 1150 


1180 

INPUT "Inserire colore PENNA (0-- 

26 

) 

e premere RETURN " ; I 


1190 

PRINT 


1200 

IF I<0 OR I >26 OR I = P THEN 1180 


1210 

INK 0,P : INK 1,1 


1220 

BORDER B: PAPER 0:PEN 1:CLS 


1230 

L=1:C=1:X=224 


1240 

K $ = IN K E V $ 


1250 

IF K$O" " THEN K = ASC<K$) 


1260 

IF K=16 THEN RUN 


1270 

IF KO0 AND K<>9 AND K<>13 AND KOI 

6 AND 

KO240 AND K<>241 AND K0243 AND 

K 

0 242 

THEN X = K 


1280 

IF K = 243 THEN GOSUB 1400 


1290 

IF K=242 THEN GOSUB 1380 


1300 

IF K=240 THEN GOSUB 1440 


1310 

IF K=241 THEN GOSUB 1420 


1320 

IF K*9 THEN GOSUB 1460 


1330 

IF K=13 THEN GOSUB 1490 


1340 

LOCATE C,L:PRINT " + " 


1350 

LOCATE C,L ; PRINT CHR*<X> 


1360 

K = X 


1370 

GOTO 1240 


1380 

IF C=1 THEN RETURN 


1390 

C=C-1:RETURN 


1400 

IF C=40 THEN RETURN 


1410 

C=C+1:RETURN 





1420 

IF L = 24 THEN 

RETURN 

1430 

L = L + 1: RETURN 


1449 

IF L*1 THEN RETURN 

1450 

L = L -1 : RETURN' 


1460 

IF X>126 THEN 

X = X-1 

1470 

IF X a 2 4 3 THEN 

X = 239 

1480 

RETURN 


1490 

IF X<255 THEN 

X = X + 1 

1500 

IF X=240 THEN 

X = 244 

1510 

RETURN 
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PLOTTER 


Plotter è un altro programma per disegnare, ma ad alta 
risoluzione (320 X 200 pixel). 

All’inizio, il programma chiede di inserire il colore del bordo, 
del fondo e delle tre penne tra i 27 disponibili (da 0 a 26). 
Il disegno può essere realizzato premendo i quattro tasti di 
controllo cursore, che da soli disegnano nelle direzioni indi¬ 
cate sui tasti mentre, premuti insieme al tasto SHIFT dise¬ 
gnano in una direzione spostata di 45 gradi rispetto a quella 
indicata sul tasto (ad esempio il tasto con la freccia a destra 
premuto insieme a SHIFT farà muovere il puntino che 
disegna nella direzione in basso a destra); provare i tasti in 
pratica. 

Per selezionare i tre colori della penna basta premere uno 
dei tasti da 0 a 3, in particolare il tasto 0 seleziona il colore del 
fondo e serve per spostarsi senza disegnare o per modificare 
il disegno già fatto; per ritornare a disegnare basta seleziona¬ 
re uno degli altri tre colori. 

Infine per cancellare tutto e far ripartire il programma si può 
premere il tasto CLR. 


i 0 0 0 ■' * 1 1 FLOTTE R * * * 

1010 ■" - 

1020 di Gaetano Marano 

1030 '' ---.. 

104Ò k o ) Gruppo Editoriale Jackson 

1050 ■" .. 

1060 MODE 1 :INK 0,0:1 NK 1,26 
1070 INK 2,11:INK 3,15 
10tì0 PEH 1 : PAPER 0 : E0RDER 0 :CLS 
10 9 0 80 U ND 1,0,0,0 S0 U ND 2,0,0,@ 


21 








1100 SOUND 4,0,0,0 

1110 - ... 

1120 INPUT "Inserire cblore BORDO <0--26 

> e premere RETURN ";B 
1130 IF B<0 OR B>26 THEN GOTO 1120 

1140 INPUT "Inserire colore FONDO <0--26 

> e premiere RETURN ";P 

1150 IF P<0 OR P>26 THEN GOTO 1140 

1160 INPUT "Inserire colore PENNA 1 (0 

--26) e premere RETURN ";IA 

1170 IF IA=P OR IA<0 OR IA>26 THEN 1160 
1180 INPUT "Inserire colore PENNA 2 (0 

--26) e premere RETURN ";IB 

1190 IF IB=P OR IB<tì OR IB>26 THEN 1180 
1200 INPUT "Inserire colore PENNA 3 (0 

--26) e premere RETURN “; IC 

1210 IF IC = P OR IC<0 OR 1026 THEN 1200 
1220 X=50:v=50:D=1:C=1 
1230 INK 1,IA : INK 2,IB: INK 3, IC 
1240 BÙRDER B: PAPER P:CLS 
1250 K$=INKEY$ 

1260 IF K$<>" " THEN K = ASC(K*> 

1270 IF, K = 16 THEN RUN 

1280 IF K=240 THEN GOSUB 1400 

1298 IF K=243 THEN GOSUB 1420 

1300 IF K = 241 THEN GOSUB 1440 

1310 IF K = 242 THEN GOSUB 1460 

1320 IF K = 244 THEN GOSUB 1480 

1330 IF K=247 THEN GOSUB 1500 

1340 IF K = 245 THEN GOSUB 1526 

1350 IF K=246 THEN GOSUB 1540 

1360 IF K>47 AND K<52 THEN C=K-48 

1370 IF C=0 THEN PLOT X,Y,i 

1380 PLOT X,Y,C 

1390 K = 0: GOTO 1250 

1400 IF V = 398 THEN RETURN 

1410 V = Y + 2: RETURN 

1428 IF X = 638 THEN RETURN 





1430 X = X + 2: RETURN 
1440 IF Y=0 THEN RETURN 
1450 Y=Y-2:RETURN 
1460 IF X = 0 THEN RETURN 
1470 X = X-2 : RETURN 

1480 IF V = 398 OR X = 63S THEN RETURN 

1490 Y=Y+2:X=X+2:RETURN 

1500 IF V = 0 OR X = 638 THEN RETURN 

1510 Y = Y-2:X = X + 2: RETURN 

1520 IF Y=0 OR X=0 THEN RETURN 

1530 V = Y-2:X = X-2: RETURN 

1540 IF Y = 398 OR X = 0 THEN RETURN 

1550 Y=Y+2:X=X-2:RETURN 









CURVE 

MATEMATICHE 


Questo programma disegna in alta risoluzione le curve di al¬ 
cune funzioni matematiche. 


1008 m CURVE MATEMATICHE *#* 

1010 - 

I tì 1 tì d i tì a e t a n o M a r -a n o 

1030 - 

1040 Ui tìruppo Editoriale Jackson 

105 0 " --- 

1060 MODE 1 : INK 0.. 0 INK 1,26 
10 ?tì I NK 2.11:INK 3,15 
1WS0 PEN 1 : PAPER 0 ; E0RDER 1 :CLS 
1tì 9 tì S 0 UN D 1,6,tì,0:30 U ND 2,tì,tì,tì 
lltìtì S O U N l> 4 , tì , tì , ù 

1110 " -- 

1120 RANDOMIZE TIME 

113 tì FuK X-tì IO 639 

1140 PL0T X,tì + <X t X/1015) 

i 15 tì N E X T X 

ilo tì F tì R x-tì T 0 6 3 9 

II ? tì P L ù T X , ò + < X1X /1015;' : D R A 0 X , tì 
118 0 N E X T X 

1190 F0R M = i TÙ 4000 : NEXT W 

120tì C L S 

12itì i NR 1,13 

12 2 0 F 0R X = 0 T 0 639 

12 3tì V = RNM1>*X/1.4 

12 4 6* PLOT X , ti + V : D R A W X , 0 

12 5 tì N E X T X 

126 0 F0R 0 = 1 TO 400tì NE X T 0 










1270 CLS 

1280 INK 1,15 

1290 FOR X=0 TO 639 

1300 V=0+LOG<X/5+l>*82 

1310 PLOT X,V 

1320 NEXT X 

1330 FOR X=0 TO 639 

1340 V=0+LOG<X/5+l>*82 

1350 PLOT X,V :DRAW X,0 

1360 NEXT X 

1370 FOR W = 1 TO 4000:NEXT W 

1380 CLS 

1390 INK 1,24 

1400 FOR X=0 TO 639 

1410 PLOT X,0+<199+COS<PI/180*<130+X*0.5 
6)>*199> 

1420 NEXT X 

1430 FOR X=0 TO 639 

1440 V=199+<COS(PI/180*<180+X*0.5ó>>1199 

) 

1450 PLOT X,0+V:$RAW X,0 
1460 NEXT X 

1470 FOR W = i TO 6000 :NEXT U 
1480 INK 1,26:CLS 



NEW YORK 


Il programma New York disegna sullo schermo il panorama 
di una città con due file di grattacieli. 

Ogni volta che si fa girare, il programma crea un panorama di¬ 
verso e casuale. 


1000 ' *** NEW YORK *:** 

1010 ' ..-... 

1020 di Gaetano Marano 

1030 - . 

1040 <e> Gruppo Editoriale Jackson 

1850 " .-. 

10Ó0 MODE 0 

1070 INK 0,1:INK 1,24: INK 2,20: INK 3,6 
1030 INK 4,26:INK 5,0: INK 6,2:INK 7,3 
1090 INK 3,10:INK 9,12:INK 10,14 
1100 INK. 11,16:INK 12,18:INK 13,22 
1110 INK 14,1,24:INK 15,16,11 
1120 PEN 1 : PAPER 5 : BORDER 0:QLS 
1130 SOUND 1,0,0,0 : SOUND 2,0,0,0 
1140 SOUND 4,0,0,0 

1150 x -... 

1160 RhNDQMIZE TIME 
1170 FOR A = 1 TÙ 30 

1180 PLOT RND<1)*639,220+RND<1>*180,(8+1 
NT<RND<1>*8> ) 

1190 NEXT A 
1200 K=5 
1210 DIN L<15> 

1220 DIM H(15) 

1230 FOR h=1 TO 15 








1246 L(A)=<<2+INT < R NIK 1) 1 2)> $20) 

1250 H(A>=<K+INT <RNIX1)*<2 + K> > >*15 + INT 
( ( R NI* < 1 > t K > -1 ) 

1266 NEXT A 
1270 X=0 

1280 POR A = i TU 15 
1290 X = X + L < A > 

1300 IF X<640 THEN GQSUB 1400 
1310 IF X>639 THEN 60SUB 1330 
1320 NEXT A 

1330 L(A)= 6 3 9 -(X - L <A > ) 

13 40 X = 6 3 9 
1350 60SUB 1400 

1360 IF K=2 THEN 1390 

1370 K=2 

1380 GOTO 1230 

1390 GOTO 1390 

140W CC = 2 + 1 NT< RNIKI >*14 ) 

1410 IF CC = 14 THEN CO = 8 
1420 IF CC = 15 THEN CC = 7 

14 30 IF C C = 5 THEN C C = 12 
1440 FOR V = 0 TO H < h > STEP 4 

1450 PLOT X-L(A),2+V:DRAW X-1,2+V,CC 
14 60 PLOT X -L(A >,0 + V :DRAW X -1,0 + V , 5 
1478 NEXT V 

14 8 0 P L 0 T X - L ( A > , 2 : t R A W X - L ( A ) , H ( A ) , C C 
14 90 PL0T X-l, 2 : BRAW X -1.. H< A> , CC 
1500 RETURN 


26 . 




DISEGNI 
DI LINEE 


Il programma disegna sullo schermo in alta risoluzione quat¬ 
tro diverse immagini grafiche una di seguito all’altra. 

In particolare il terzo disegno può anche essere variato cam¬ 
biando il valore della variabile V alla linea 1380 con un valore 
diverso, sia maggiore che minore di 12. 


X y y y .*. t- i* I £ ij i’4 x i x N £ L -t- -t- ?• 

10X0 •" - 

10 ci 0 cix i j a e t a n o ri a r a n o 

1030 ■' --- 

104 0 ■ < c ) tì r u. p p o Editoriale Jack» o n 

1050 •" - 


1060 M0D £ 1 : INK 0,0:1 NK 1,26 
1070 INK 2,111NK 3,15 
1080 PEN 1:PAPER 0 :BORfeER 1 :CLS 
1098 30UND 1,0,0,0; SOUND 2,0,0,0 
1100 SOUND 4,0,0,y 

1110 - 

1120 R h N D 0 HIZ E Ti ti E 
1130 INK 1,6 

1140 POR H = 0 TO 360 STEP 2 
1150 K=15+25*RND<1> 

1160 R D = P I /180 % A 
1170 tì = 10 W +110 * R N D < 1 > 

1180 PLOT 317 + KC0S < R D >, 19 9 + K1SIN ( RD > : 3>R 
AM 317 + H1C 0S(R D),19 9 + H t SIN(RD ) 

1190 NEXT A 

1200 POR W = 1 TO 6800: NEXT W 
1210 CLS 
1220 INK 1,24 











1230 FOR h=20 TO 200 STEP 8 
1240 PLOT 317, A + 199 :PRAW 100+A,199 
1250 NEXT A 

1260 FGR A=20 TO 200 STEP 8 
1270 PLOT 318,A+199:PRAW 535-A.199 
1280 NEXT A 

1290 FOR A=2 TO 180 STEP 8 
1300 PLOT 317,A+4:PRAW 298-A..198 
1310 NEXT A 

1320 FOR A=2 TO 180 STEP 8 
1330 PLOT 318,A+4:PRAW 3 3 6 + A, 19 6 
1340 NEXT A 

1350 FOR W = 1 TO 6000:NEXT W 
1360 CLS 
1370 INK 1,18 
1380 PEFINT X, V : V = 12 
1390 PIM X(0> 

140O piu v<v> 

1410 P = P 112 
1420 FOR N=1 TO V 
1430 A = P/V1N 

1440 X(N)=COS(A>1205+317 
145tì V(N)=SIN(A)1195+199 
1460 NEXT N 
1470 FOR A=1 TO V 
1480 FOR E = 1 TO V 

1490 PLOT X<A),V(A>:PRAW X<B),V<B) 
L5O0 NEXT E 
L510 NEXT A 

1520 FOR W=i TO 6000:NEXT W 
1530 CLS:INK 1,15 
1540 P = PI/2 

1550 1 = 200 :A = 0:B = A+I:N = 1 

1560 R = A1P/18 0 

1570 XA=195!CQS<R>+317 

1580 VA=1951SIN(R)+200 

1590 R = B1P/180 

1600 XB = 19 51C0 S(R)+ 317 




1610 YB=195*SIN<R>+200 
1620 PLOT XA,YA :BRAW XB,YB 
1630 A = A+I :B = A+I :N = N + 1 
1640 IF N=19 THEN 1660 
1650 GOTO 1560 

1660 FOR W=1 TO 10000:NEXT W 
1670 CLS:INK 1,26 









ITALIA 


La serie di codici numerici inseriti nelle istruzioni DATA di 
questo programma, contengono le coordinate per disegnare 
i contorni dell’Italia. 

Così com’è, il programma è più che altro dimostrativo, 
tuttavia la parte principale che disegna l’Italia può essere 
inserita in altri programmi di tipo didattico, di quiz, eccetera. 
Il punto di inizio del disegno, dipende dai valori assegnati alle 
variabili X e Y (linee 1130 e 1140). 


1000 ttt ITALIA tt * 

1010 -■ ----- 

1020 di Gaetano Marano 

10 30 •".......- 

1040 C c ) Gruppo Editoriale J a c k s o n 
1050 - 


1060 MODE 1 

10 7 0 INK 1,18 I NK. 2,6 

108tì INK 3.26: INK 8,0 

1090-REM 3 : PAPER à: BOEDER 1:CLS 

1180 SOUND 1,0,tì,0 : SOUND 2,0,0,0 

1110 SOUND 4,0,0,0 

1120 ? - 

1130 K = 190'. * 0_448 

1140 V=320: 0_168 

1150 RESTORE 

1160 K = tì ■ C = 1 

1178 READ D:K = K +1 

1180 IF D = 1111 THEN 126Ò 

1190 D = D%2 

12 O 0" I F D = O THE N V = V - 2 : S 0 T 0 i 2 5 tì 









1210 IF K>220 THEN C = 3 
1220 IF K>375 THEN C = 2 
1230 D=D-52 
1240 PLOT X+D,Y,C 
1250 GOTO 1170 
1260 GOTO 1260 

1270 DATA 94,0,38,89,91,92,93,0,36,87,38 
,90,93,0,32,83,85,94,0,31,83,84,95,0 
1280 DATA 79,82,96,97,98,99,0,78,80,81,1 
00,101,102,103,0,64,65,72,78,104,105,0, 
1290 DATA 64,65,71,73,74,75,76,77,78,103 
,0,64,66,71,103,104,0 

1300 DATA 63,67,68,70,105,0,59,61,62,68, 

70,104,0,54,55,56,57,58,60,69,104,0 

1310 DATA 53,101,104,0,54,100,101,102,10 

3,104,105,0,55,100,101,106,107,0 

1320 DATA 55,99,107,0,56,95,96,97,98,0,5 

5,94,0,54,94,0 

1330 DATA 52,53,94,0,52,95,0,53,95,0,53, 

96 , 0 , 54 , 94 , 95 , 96 , 0 , 53 , 94,0 

1340 DATA 53,94,0,53,94,0,53,67,68,69,94 

,0,53,65,66,70,71,94,8 

1350 DATA 54,55,64,72,73,95,0,56,57,58,5 

9,63,73,74,95,8,59,62,75,76,96,0 

1368 DATA 59,62,77,97,0,58,59,60,61,78,9 

8,0,78,99,180,0,79,101,0,79,102,0 

1370 DATA 79,103,0,79,104,105,0,80,105,0 

,88,105,0,81,106,0,81,186,0,75,81,107,0 

1380 DATA 81,82,107,0,83,107,0,77,78,79, 

83,107,8,79,84,108,0,76,85,108,0 

1390 DATA 86,109,0,36,87,88,110,0,83,85, 

89,111,8,90,112,0,90,113,114,0 

1400 DATA 91,92,115,0,93,116,117,0,94,11 

8,119,122,123,124,125,0,94,120,121,126,0 

1410 DATA 95,125,0,96,124,0,97,124,0,98, 

99,125,126,0,69,100,102,103,127,128,129 

1420 DATA 0,62,69,101,104,105,106,187,13 

0,0,61,67,63,70,71,108,131,132,133,0 



1430 DATA 66,72*193,134,135,0,60,65,71,1 
09,136,0 

1440 DATA 69,61,62,63,'64,72,109,110,111, 

137,138,0,60,72,109,112,139,140,9 

1450 DATA 60,61,72,107,113,114,115,141,1 

42,0,62,73,112,113,116,134,135,143,0 

1460 DATA 62,73,110,117,133,136,144,0,62 

,72,117,132,137,138,139,140,145,0 

1470 DATA 62,72,117,132,142,146,9,63,71, 

117,118,131,143,147,0 

1480 DATA 62,72,119,122,131,143,146,0,62 

,72,120,121,123,139,143,144,146,0 

1490 DATA 62,72,123,124,131,145,146,0,63 

,72,124,138,0,63,72,124,130,0 

1500 DATA 62,63,72,125,130,0,62,71,125,1 

31,132,133,0,61,71,126,134,0 

1510 DATA 62,71,126,135,0,61,71,127,135, 

0,59,61,67,68,69,71,127,135,0 

1520 DATA 62,66,70,127,135,0,61,63,66,12 

7,135,0,63,64,65,128,133,134,135,0 

1530 DATA 128,132,0,128,131,0,125,126,12 

7,131,0,118,126,131,0,116,126,131,0 

1540 DATA 126,130,131,0,118,125,129,0,12 

2,124,12.5,128,0 

1550 DATA 103,117,120,121,122,124,123,0, 

98,101,102,103,114,115,116,118,119 

-1560 DATA 122,124,128,0,92,97,99,100,104 

,105,109,110,111,112,113,121,124,125 

1570 DATA 126,127,0,94,96,106,107,108,12 

0,0,96,120,0,96,119,0,97,119*0 

1580 DATA 98,99,100,101,119,0,102,103,11 

8,0,104,118,0,105,106,118,0 

1590 DATA 107,108,120,0,109,110,111,112, 

121,0,113,120,0,114,119,0 

1600 DATA 91,114,115,118,119,0,92,116,11 

7,0,1111 









NUMERI 

DIGITALI 


Se si vogliono inserire dei numeri di varie dimensioni nel mo¬ 
do grafico ad alta risoluzione, si può usare la routine Numeri 
Digitali che consente appunto di scrivere delle cifre digitali a 
sette segmenti. 

Per scrivere un numero bisogna inserire il numero stesso (tra 
0 e 9) nella variabile N, la larghezza dei segmenti orizzontali 
(in pixel) nella variabile L, l’altezza dei segmenti verticali nel¬ 
la variabile H e le coordinate alle quali va scritto il numero nel¬ 
le variabili X e Y. 

Se le cifre devono essere tutte della stessa dimensione, i va¬ 
lori L e H possono essere stabiliti una sola volta all’inizio, inol¬ 
tre se si devono scrivere più numeri di seguito, occorre ad o- 
gni numero incrementare il valore di X per non sovrapporre le 
cifre. 


108 •' PROGRAMMA D I MOSTRAI IVO 

102 •' .. 

104 MODE 1:INK 0,0:INK 1,26 

106 INK 2,11: INK 3,15 

108 PEN 1;PAPER 0 ;BGRDER 1:CLS 

110 SOUND 1,0,0,0 : SOUND 2,0,0,0 

112- SOUND 4,0,0,0 

114 RAND0MI2E TIME 

116 FOR A=1 TO 20 

118 X=20+RND<1>*580 

120 V=100+RND(1)*280 

122 L=10+RND<1>*30 

124 H=10+RND<1>*30 

126 N=RND<1>*10 





128 C = i + I NT <RNMi) $ 3> 

130 GQSUB 7000 
132 NEXT A 

134 FOR W = 1 TO 8000 : NEXT U:CLS = ENI> 

136 ■' ---. 

700W * ** NUMERI DIGITALI ** 

7010 --- 

7020 di G a e t ano M arano 

7 030 •" --- 

10 48 c > G r u. f> p o Editoriale J a c k s o n 

7050 ■' ---- 

7060 N= I N T(N) : IF N<0 OR N>9 THEN RETURN 
7878 IF N = tì OR N = 2 OR N = 3 OR N = 5 OR N = 6 
U R N - 7 u R N = 8 0 R N = 9 THE N PLOT X .. V - 4 : D R A 
w X + L . V - 4 , C 

7880 IF N = 2 OR N = 3 OR N = 4 OR N = 5 OR N = 6 
OR N = 8 OR N = 9 THEN PLOT X,V-4-H : DRAM X + L 
,Y-4-H,C 

7 890 IF N = 8 OR N = 2 OR N = 3 OR N = 5 OR N = 6 
U R N = U K N = 9 THE N P L U T X .. V - 4 - H - H : D R A W X 
+L.Y-4-H-H, C . 

7160 IF N=0 OR N=1 OR N=2 OR N=3 OR N=4 
0R N = 7 0R N = 8 0 R N = 9 THEN PLOT X + L , V - 4 : £ 
RAM X + L..Y-4-H, C 

7110 IF N = 0 OR N = 1 OR N = 3 OR N = 4 OR N = 5 

OR N=6 OR N=7 OR N=8 OR N=9 THEN PLOT X+ 

L , Y ~4 -H : DRAM X + L , V -4 -H -H.. C 

7120 IF N = 8 OR N = 2 OR N = 6 OR N = 8 THEN PL 

OT X , Y - 4 - H : I> R A W X,Y-4-H-H,C 

7138 IF N = 0 OR N = 4 OR N = 5 OR N = 6 OR N = 8 

OR N=9 THEN PLOT X,V-4:DRAW X,Y-4-H,C 

i14 8 R E T U RN 







LETTURA 

VELOCE 


Questo programma può essere usato per incrementare la 
propria velocità di lettura. In una serie di istruzioni DATA so¬ 
no contenute 200 parole che vengono visualizzate in manie¬ 
ra casuale e per breve tempo in un riquadro sullo schermo. 
La prima frase viene sempre visualizzata per un tempo di 0.1 
secondi che viene indicato in anticipo. 

Sparita la frase il computer chiede di scriverla, quindi con¬ 
fronta la frase scritta con quella appena visualizzata. 

Se la frase inserita è uguale a quella scelta dal computer e- 
sce la scritta ‘Frase: * ESATTA*’, se invece la frase inserita è 
diversa da quella visualizzata esce la scritta ‘Frase: SBA¬ 
GLIATA!!!’. 

Inoltre, ogni volta che si riconosce esattamente una frase, il 
tempo di visualizzazione della successiva viene dimezzato 
(fino ad un minimo di 0.02 secondi), mentre ogni volta che si 
sbaglia viene raddoppiato (fino ad un massimo di 1 sec.). 
Alle 200 parole già incluse nel programma se ne possonoag- 
giungere molte altre, inserendo le nuove parole o frasi (di 
massimo 20 caratteri) in una serie di istruzioni DATA; l’ultima 
linea deve essere sempre uguale alla linea 9998 (vedere 
listato) che contiene un carattere usato dal programma per 
riconoscere la fine della lista durante il conteggio delie frasi. 


i 0 8 y 

1010 
1020 '■ 
1030 ' 
1040 ' 


*** LETTURA VELOCE *** 



di Gaetano M a r a n o 


< c > 

6 r u. p p o Editoriale J a c k s o n 


ito u 




39 







I960 MODE 1INK 1,26:INK 0,0 
1070 INK 2,il :INK 3,15 
1080 PEN 2:PARER 0:BORBER &:CLS 
1096 SOUND 1,8,0,0 : SOUNt 2,0, 0,0 
1100 SOLINI» 4,0,0,0 

1110 .....-. 

1120 AI = C H RI < 15 0 ) : D$=CHRI<1S4) : BB$=CHR*< 
154) : EI=CHR$(156) : F$ = CHR$<149) :GI=CHRI<1 
47) :HI=CHRI<153) 

1130 FOR W = 1 TO 4 
1140 B$=BI+BI 
1150 NEXT W 
1160 BBI=BBI+BB$ 

1170 BI=DI+EBI+ED$ 

1180 Bl=" 

1190 BI=BI+BI 
1200 LOCATE re, 5 
1210 PRINT Al Bl; El 
1220 LOCATE 10,6 

1230 PRINT FI," ",F$ 

1240 LOCATE 10,7 

125tì PRINT 61 ; BI ; HI 

1260 PEN 1 

1270 RESTORE 

1280 FOR A~1 TO 10000 

1290 READ C$ : IF Cl="#" THEN 1310 

1300 NEXT A 

1310 N F = A -1 

1320 PIU TI<6) 

1330 T$(l)="0180.02 Sec." 

1340 T$< 2) = "è45@.tì5 Sec. " 

1350 TI < 3 ) = “ 0910.1 Sec. " 

1360 TI (4)=" 1820.2 Sec. " 

1370 TI(5) = "455è.5 Sec. " 

13 80 TI< 6) = "9 O 9 1 Sec. " 

1390 TX = 3 

1400 PEN 1 :F0R T = 1 TO 2000:NEXT T 
1410 RANBOMIZE TIME 






1420 LOCATE 10,10 PEN 3:PRINT "Durata fr¬ 
ase R IG H T $ ( T $ < T X > .. 9 ) 

1430 FOR T = 1 TO 1000 :NEXT T 
1440 PEN 1 
1450 RE5T0RE 

1460 FOR A = 1 TO INT£NF*RND<1>> 

1470 READ F$ :NEXT A 

1480 P = V AL (LEFT$ <T$<’TX),3)) 

1490 READ F$ ■ IF LEN <F$>>20 THEN F* = LEFT 
$ < F $ , 2 0 > 

1500 LOCATE 11,6:PRINT F$ 

1510 FOR T = 1 TO P:NEXT T 
1520 LOCATE 11,6:PRINT " 

li 

1530 FOR T=1 TO 750:NEXT T 
1540 LOCATE 3,13 

1550 PRINT " Scrivete la frase che ave 
te visto e prenete RETURN " 

1560 LOCATE 4,16 
1570 INPUT X* 

1580 R = 0 • IF UPPER$< X$)= UPPER$(F$) THEN R 
= 1 

1590 IF R=1 THEN LOCATE 10,10:PEN i:PRIN 
T " Frase: * ESATTA * ,r ; B$ ; B$; B$ ; B*; 

li ; B$ 

1600 IF R=0 THEN LOCATE 10,10 PEN 1:PRIN 
T " Frase: SBAGLIATA !! ",B$;B$,B*; li 

; li ; li 

1610 IF R = i AND TX>1 THEN TX = TX-1 
1620 IF R=0 AND TX<6 THEN TX=TX+1 
1630 GOTO 1400 

1640 ' -- 

2000 CATALOGO PAROLE E FRASI 

2001 DATA "BIANCO" 

2002 DATA "ROSSO" 

2003 DATA "VERDE" 

2004 DATA "Gl ALT. 0" 

2005 DATA "BLU" 




2066 DATA "NERO" 

2007 DATA "ROMA" 

2008 DATA "MILANO" 

2009 DATA "FIRENZE" 

2018 DATA "NAPOLI" 

2011 DATA "PARIGI" 

2012 DATA "BERLINO" 

2013 DATA "LONDRA" 

2014 DATA "MADRID" 

2815 DATA "NEW YORK" 

2016 DATA "LOS ANGELES" 

2017 DATA "ATENE" 

2018 DATA "TOKYO" 

2019 DATA "MOSCA" 

2020 DATA "BUENOS AIRES" 

2021 DATA "GINEVRA" 

2022 DATA "MICROPROCESSORE" 

2023 DATA "KEYBOARD" 

2024 DATA "MONITOR" 

2025 DATA » AMSTRAD" 

2026 DATA "AEREO" 

2027 DATA "NAVE" 

2028 DATA "TRENO" 

2029 DATA "COMPUTER" 

2030 DATA "FOTOGRAFIA" 

2031 DATA "ATTRICE" 

2032 DATA "AUTOMOBILE" 

2033 DATA "CREDIT CARD" 

2034 DATA "LINEA" 

2035 DATA "ARTICOLO" 

2036 DATA "INDIRIZZO" 

2037 DATA "MOTORE" 

2038 DATA "CAPIRE" 

2039 DATA "VOLARE" 

2040 DATA "CAMMINARE" 

2041 DATA "NAPOLEONE" 

2042 DATA "GARIBALDI" 

2043 DATA "CESARE" 



2044 

DATA 

"WASHINGTON" 

2Ù45 

DATA 

"PRINTER" 

2046 

DATA 

"UOMO" 

204? 

DATA 

"DONNA" 

2048 

DATA 

"CASA" 

2049 

DATA 

"SCALA" 

2050 

DATA 

"ASCENSORE" 

2051 

DAT A 

"RUOTA" 

2052 

DATA 

"LIBRO" 

2053 

DATA 

"JACKSON" 

2054 

DATA 

"BYTE" 

2055 

DATA 

"BUONO" 

2056 

DATA 

"CATTIVO" 

205? 

DATA 

"VELOCE" 

2058 

DATA 

"LENTO" 

2059 

DATA 

"GRANDE" 

2060 

DAT A 

"PICCOLO" 

2061 

DATA 

"LEGGERO" 

2062 

DATA 

"PESANTE" 

2 068 

DATA 

"MARI 0" 

2064 

DATA 

"LAURA" 

2065 

DATA 

"FRANCO" 

2066 

DATA 

"ANTONIO" 

206? 

DATA 

"MARIA" 

2068 

DATA 

"FRANCESCO" 

2069 

DATA 

"BARBARA" 

2070 

DATA 

"GATTI" 

2071 

DATA 

"ELEFANTE" 

2072 

DATA 

"DELFINO" 

2073 

DATA 

"GIRAFFA" 

2074 

DATA 

"ANTILOPE" 

2875 

DAT A 

"LEONE" 

2076 

DATA 

"CONDOR" 

2077 

DATA 

"TIGRE" 

2078 

DATA 

"DOBERMAN" 

2079 

DATA 

"IPPOPOTAMO" 

2880 

DATA 

"CANE" 

2081 

DATA 

"BASIC" 




ro p j ro wj 


2082 DATA "PASCAL" 

2083 DATA "FORTRAN" 

2084 DATA "FORTH" 

2085 DATA "LISP" 

2086 DATA " PR 0 L 06" 

2087 DATA "LOGO" 

2088 DATA "C 0B 0 L" 

2089 DATA "A P L" 

2090 DATA "CALENDARIO" 

2091 DATA "TRANSISTOR" 

2092 DATA "STOFFA" 

2093 DATA "TEATRO" 

2094 DATA "RIVISTA" 

2095 DATA "SEMAFORO" 

2096 DATA "VOLERE" 

2097 DATA "CANTARE" 

2098 DATA "JET" 

2099 DATA "SCRIVERE" 

2100 DATA "LEGGERE" 

2101 DATA "CALIFORNIA" 

2102 DATA "AMICO" 

2103 DATA "SAPORI" 

2104 DATA "PROGRAMMA" 

2105 DATA "DEBUG" 

2106 DATA "DISK" 

2107 DATA "MUSICA" 

2108 DATA "CANTANTE" 

2109 DATA "TELEFONO" 

2110 DATA "TELEGRAFO" 

2111 DATA "TELEX" 

2112 DATA "CASSETTA" 

2113 DATA "LOCALI" 

2114 DATA "NETWORK" 

2115 DATA "JAZZ" 

116 DATA "STATI" 

117 DATA "FORMULA" 

118 DATA "BORSA" 

119 DATA "PARTICELLA" 



2120 

DAT A 

"PROTONE" 

2121 

DATA 

"QUARK" 

2122 

DATA 

"NEUTRINO" 

2123 

DAT A 

"ELETTRONE" 

2124 

DATA 

"ACQUA" 

2125 

DATA 

"ARANCIA" 

2126 

DATA 

"ANANAS" 

2127 

DATA 

"POMODORO" 

2128 

•DATA 

"KIWI" 

2129 

DATA 

"TESTA" 

2130 

DAT A 

"BRACCIO" 

2131 

DATA 

"GAMBA" 

2132 

DATA 

"OCCHI" 

2 1J 2 

DATA 

"NASO" 

2134 

DATA 

"CUORE" 

2135 

DATA 

"UDIRE" 

2136 

DATA 

"VEDERE" 

2137 

DATA 

“GIACCA" 

2138 

DATA 

"CRAVATTA" 

2139 

DATA 

"METRO" 

2140 

DATA 

" INCH" 

2141 

DATA 

"CACCIAVITE" 

2142 

DATA 

"CARBURATORE 

2143 

DATA 

"STETOSCOPIO 

2144 

DATA 

"PAROLE" 

2145 

DATA 

"PAGINE" 

2146 

DATA 

"CONTENITORE 

2147 

DATA 

"DECOLLO" 

2148 

DATA 

"DESIGN" 

2149 

DATA 

"ARTISTA" 

2150 

DATA 

"RAGIONE" 

2151 

DATA 

"NASTRO" 

2152 

DATA 

"MICROFONO" 

2153 

DATA 

"STRUMENTO" 

2154 

DATA 

"PIANOFORTE" 

2155 

DATA 

"CLARINETTO" 

2156 

DATA 

"SAX" 

2157 

DATA 

"SVNTHESI2ER 



2158 

DAT A 

"ECONOMIA" 

2159 

DATA 

"MONETA" 

2160 

DATA 

"DOLLARO" 

2161 

D A T A 

"STERLINA" 

2162 

D A T A 

"CAMBIO" 

2163 

DATA 

"SOFFITTA" 

2164 

DATA 

"PANINO" 

2165 

DATA 

"SPAGHETTI" 

2166 

DATA 

"HAMBURGHER" 

2167 

DATA 

"WHISKY" 

2168 

DATA 

"CANCELLARE" 

2169 

DATA 

"MEMORIA" 

2178 

DATA 

"AUTOBUS" 

2171 

DATA 

"COMBINAZIONE" 

2 17 sL 

DATA 

"URAGANO" 

2173 

DATA 

"SPACE SHUTTLE" 

2174 

DATA 

"ASTRONAUTA" 

2175 

DATA 

"PIOGGIA" 

2176 

DATA 

"CAMINETTO" 

2177 

DATA 

"STRADA" 

2178 

DATA 

"PERCORRERE" 

2179 

DATA 

"INDUSTRIA" 

2180 

DATA 

"INGRANAGGIO" 

2181 

DATA 

"RIVISTA" 

2182 

DATA 

"UNIX" 

<L 18 3 

DATA 

"BLOCCHETTO" 

2184 

DATA 

"DINOSAURO" 

2185 

DATA 

"DIZIONARIO" 

2186 

DATA 

"VIDEOGAMES" 

2io7 

DATA 

"STAR WARS" 

2188 

DAT A 

"PRODUZIONE" 

2189 

DATA 

"ALLENAMENTO" 

2190 

DATA 

"BASKET" 

2191 

DATA 

" DrSfI>AY " 

2192 

DATA 

"PIXEL" 

2193 

DATA 

"LOGARITMO" 

2194 

DATA 

"TRIGONOMETRIA" 

2195 

DATA 

"HOBBY" 



2196 

DATA 

"TELEFILM" 

2197 

DATA 

"NOTIZIE" 

2198 

DATA 

"SOPRANO" 

2199 

DATA 

"PENULTIMA" 

2288 

DATA 

"ULTIMA" 

9998 

DATA 

"#" 

9999 

' FINE LISTA 










CRONOMETRO 


Il programma Cronometro permette di misurare i tempi e di 
visualizzarli in ore, minuti e secondi. 

Il cronometro è controllato dai tasti Z (Start), X (Lap, tempo 
intermedio) e C (Stop). 


1 tì 0 0 
1010 '■ 

1 à 2 0 •' 

10 3 0 " 

10 4 0 ■" 
1050 

1 0 6 0 

14* CRONOMETRO *** 

di U a e t a n o Marano 

c .> U r u p p o t d itoriale J a c k s o tì 

f U tì Z i o n a t a 5 1 0 

i U 1 V 

I 0 3 0 ' 
1090 •" 

II 0 Ù " 
1110 

START Z 

LAP X 

STOP C 


1120 MODE 1•INK 0,1 INK 1,26 


1130 INK 2,24:INK 3,15 
1140 PEN 2: PAPER tì ; EORDER 1 CLS. 
1150 SOUND 1,0,Ù,8 : SOUND 2,0,0,0 
1160 SOUND 4,0,0,0 


1170 ' - 

1130 L 0 C A T E 

^ t 
i i l 

FRI NT " 

! 1 1 1 II 

1 1 1 1 l l 

l 1 • i i 1 

1 1 1 

1 1 1 

1190 L 0 C A T E 

l l 1 

2,4 

i i i 

1 1 1 1 

F'RINT " 

1 l l 1 li 

1 1 1 ! 1 1 

1 1 1 1 1 1 

1 1 1 

1 1 1 

1200 LOCATE 

i i i 

cr 

i i i 1 

PRINT " 

filili 

filili 

1 1 1 

1 1 1 


1 i • l li 
liti 























ic.it* 

L U A i h j. 4 , i • F K i N 1 

" n r ut 1 n s 

P !_: 

ì 220 

L 0 C h T E 4,8 : P R I N T 

"tasti: Z_ 

START 

K.LAP C-STQP" 



1230 

LOCATE 14.4:PRINT 

"00 : 00 : 

00 " 

12 4 0 

K$=INKEVI 



1250 

IF K$<> " " THEN K = 

h S C < K $ ) 


1260 

IF K = 90 OR K = 122 

THEN 6ù T 0 12 

7 t* 

1270 

IF K = 88 OR K = 120 

THEN K = 5 :G0T 

0 131Ù 

1280 

GOTO 1240 



1290 

V=TIME 



1 3 0 0 

LOCATE 14,4 PRINT 

11 0 0 0 0 

0 0 " 

1310 

6 0 S U E 13 7 w 



i ò Z 0 

K $ = I N K E V $ 



13 3 0 

IF Kf <> " " THEN K = 

A S C < K * > 


13 4 tì 

IF K = 67 OR K = 99 THEN 60T0 124 

0 

13 50 

IF K = 88 OR K = 120 

THEN K=5:GOT 

u i z 4 y 

13 6 Ò 

GOTO 1310 



13 7 8 

T = I N T<<TIME-V>/3 0> 


1380 

H = I N T ( T / 3 6 0 O 0 > 



1398 

T = T - H 1 3 6 8 Ò tì 



1400 

M = I N T < T / 6 0 O ) 



1418 

T = T - M 1 6 0 0 



14 20 

S=INT<T,IO) 



14 3 8 

C = T -SII0 



14 40 

H i = S T R $ ( H > 



1450 

m$=str$‘:h> 



1460 

S $ = S T R $ < S ) 



147 0 

C $ = S T R $ < C ) 



14 8 8 

L 0 C A T E 16 - L E N k H $ } 

,4: PRINT H* 


14 90 

LOCATE 21 - L E NX M t } 

,4:PRINT iU 


150 tì 

LOCATE 2 6 - L E N<S$) 

,4 . PRINT SI- 


1510 

LOCATE 27,4.PRINT 

C$ 


1528 

RETURN 
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SCRITTE 

PUBBLICITARIE 


Il programma chiede di inserire per prima cosa un testo di 
massimo 200 caratteri che può contenere, ad esempio, un 
messaggio pubblicitario, una serie di prezzi, delle quota¬ 
zioni di borsa, delle offerte speciali, dei comunicati impor¬ 
tanti, eccetera. Quindi si deve inserire la velocità di rotazione 
delle scritte con un valore tra 1 (più veloce) a 10 (più lenta). 
Per inserire una frase diversa occorre fermare il programma 
premendo due volte il tasto ESC e quindi dare di nuovo RUN. 


i688 %1 8CRITTE PUBLICITARIE 

1810 ---. 

18 y di basta ri o M a r a n o 

10 38 '■ - 

18 4 8 < c > G r u p fi o £ d i t o naie J a c k s o n 

1050 •" -.- 

18 6 8 H 0 £• E 1:1 N K 0,1:1 N K 1,24 
1070 INK 2 ,26 : INK 3,15 
1080 PEN i:PAPER 0 :BORI'ER 1 = CLS 
1090 SOLINI' i, 0,8,8 ; SOLINI' 2,0,8,8 
1180 SOLINI- 4,0,0,8 

1110 "■ -*- 

1120 W$=CHR*<154> 

1130 POR Q=i IO 39 
114 8 W $ = W % + C H R $ L 15 4 .> 

1150 NEXT Q 

116 0 IN P U T " I n s e r i r e frase ( f« a x 208 c a r a 
11eri) e premere RETURN ",h $ 

1170 CLS 

1180 INPUT "Inserire ve 1 o c i ta " < J— 10 > 
e premere RETURN ";T:IF T<1 








OR T>16 THEN 1130 
1190 CLS 
1200 F E N 3 

1210 LOCATE 1,4 = FRI NT u$ 

1220 LOCATE 1,5: FRI NT Wl 
1230 LOCATE 1,9: FRI NT u* 

1240 LOCATE 1,10:PRINT 14* 

1250 PEN 1 

126 tì S $ = SPA C E $ < 40 > 

1270 IF L E N < h *)<40 THEN H*=LEFT*<3*,40-L 
E N ( A * > ) 

1230 IF L E N <A $)> 39 THEN H* = " 

1290 B $ = A * + H * 

13 @ tì C * = E $ 

1310 LOCATE 1,7 : PRINT LEFT % <C$,40> 

13 2 O C $ = RI6HT$ i C $ , LE N k C $ -1 ■> 

1330 ÌF LEN< C$ > <4O THEN C$ = C$ + B* 

1340 FOR I' = l TO 20*T;NEXT I 1 
1350 GOTO 1310 




CONTAPEZZI 


Un uso insolito del computer può essere quello di Conta- 
pezzi capace di contare da 0 a 99.999.999 pezzi. 
Facendo girare il programma, ogni volta che si preme RE¬ 
TURN il numero viene incrementato di uno. Oltre a ciò, si può 
inserire anche un numero qualsiasi da aggiungere (per e- 
sempio 334925) che premendo RETURN viene sommato al 
numero presente sullo schermo oppure sottratto, se il nume¬ 
ro inserito è preceduto dal segno —. 

Se si cerca di sommare o di sottrarre un numero che farebbe 
scendere il totale sotto lo 0 o lo farebbe salire oltre il massi¬ 
mo, il programma fa uscire sul video la frase ‘NUMERO ER¬ 
RATO O ECCESSIVO’. 


1308 % 1 % CONTAPEZZI t 4$ 

1810 ----- 

1Ù20 di 6 a e t a ri c> Mar a fio 

1830 •" ----- 

1046 s e) b r ijl f> f> o E d i t o r i a 1 a J a c k s o fi 

1850 •" -- 

1060 MODE 1= INK 0,0:1 NK 1,26 
1070 INK 2,11: INK 3,15 
10S0 PEN 1:PAPER 8 :BORDER @:CLS 
1090 SOUND 1,0,W,0 : SOUND 2,0,0,0 
1100 SOUND 4,0,0,0 

1110 •" ....--- 

1120 SVNBOL 255,96,144,144,96,0,0,0,8 
1130 E $ = C H R $(15 0):C$ = CHR$<156):D* = CHR$<1 
47): E $ = C H R $ <15 3):F$ = CHR$ ( 151 ) :6$ = CHR$<15 









1140 H$=CHR$<158>:I*=CHR*<155>:L*=CHR$<1 
49):M$=CHR$<145>:Q|=CHR$(255):X$=CHR$(14 

8 ) 

1150 S P $ = S P A C E $ < 4 0 } 

1160 PEN 2 

1170 PRINT " Premere RETURN per un sol 
o pezzo" 

1180 PRINT 

1190 PRINT " o introdurre N";Q $ ;" pezz 
i i n p ì u ' o " 

1200 PRINT 

1210 PRINT " in riieno (con -) e premere 
RETURN. " 

1220 PEN 1 

1230 LOCATE 5.. 12 : PRINT B$;C$.;B$;C$;B$;C$ 
; B $ ; C $ ; H $ 

1240 LOCATE 5,13:PRINT F$;E$;F$;" ",BS;E 
$,B$;E$, L* 

1250 LOCATE 5,14:PRINT M$j" E$ ; J>* ; E 

$,!•$; E*, I l 

1260 N=0 

1270 C=0 

1290 PEN 3 

1290 LOCATE 5,22:INPUT N$ 

1300 PEN 1 

1310 LOCATE 1,22:PRINT SP$ 

1320 IF N$ = " " THEN N$="l" 

1330 IF ASC (Ni) 045 THEN P$=N$:BOTO 1350 
1340 :IF ASC(N$ )=45 THEN P$ = RI 6HTf ( N* , LEN 
(N$)-1> : 60T0 1400 
1350 FOR A = 1 Tu LEN(N$ ) 

1360 IF ASC(F'$)<48 OR ASC(F'$>>57 THEN 60 
TO 1580 

1378 P$ = RI6HT$(P$, LEN(P$) -1). 

1380 NEXT A 

1390 GOTO 1440 

1408 FOR h=2 TO LEN(N$> 

1418 IF ASC <P$> <48 OR ASC(PI)>57 THEN 60 




TO 1580 

1428 P$=RI6HT$<P$,LEN<P$>-1) 

1430 NEXT A 

1440 IF (N+VAL(NI)>><100000000-1) OR <N+ 
VhL < N$)> <0 THEN GOTO 1580 
1450 N = N + V A L < N $ ) 

1460 N$ 55 " 1 " 

1470 A$ = 3TR$ < N) 

1480 A$=RI6HT$<A$,LEN<A$)-1> 

1490 IF LEN<A$)<8 THEN A$ = A$ + LEFT$ <" 

" , 8-LEN<A,$> > 

1500 FOR P=1 TO 8 
1510 C=P*2+15 
1520 J=ASC<A$)-47 
1530 IF J=-15 THEN J=ll 

1540 ON J GOSUB 1630,1678,1710,1750,1790 
,1830,1870,1910,1950,1990,2830 
1558 A$=RIGHT*<A$,LEN<A$>-1> 

1560 NEXT P 
1570 GOTO 1270 

1580 LOCATE 5,18 :PEN 2:PAPER 1 :PRINT " 
NUMERO ERRATO 0 ECCESSIVO ":REN 1:PAPER 
0 

1590 A $-"0" 

1608 FOR T=1 TO 2080:NEXT T 
1618 LOCATE 1,18 :PRINT SPS 
1620 GOTO 1270 


PEN 1:PAPER 


1630 LOCATE 
1640 LOCATE 
1658 LOCATE 
1660 RETURN 
1670 LOCATE 
1680 LOCATE 
1690 LOCATE 
1780 RETURN 
1710 LOCATE 
1720 LOCATE 
1730 LOCATE 


PRINT B* 
PRINT LI 
PRINT 

PRINT " 
PRINT “ 
PRINT " 

PRINT B$. 
PRINT £$, 
PRINT 1>$. 






174 0 

RETURN 




1750 

L 0 C A T E 

C,12 

FRI NT 

E $ C $ 

1760 

LOCATE 

C,13 

FRI NT 

" " ; 6 $ 

1770 

LOCATE 

C, 14 

FRI NT 

V*;E* 

1780 

RETURN 




17 80 

LOCATE 

C,12 

FRI NT 

X$, X$ 

1800 

LOCATE 

C, 13 

FRI NT 

ìf$ 6$ 

1810 

LOCATE 

C.. 14 

FRI NT 

■ ";M$ 

1820 

RETURN 




1830 

LOCATE 

C, 12 

FRI NT 

B$ ; Ct 

18 40 

LOCATE 

C, 13 

PRINT 

ì>t; C* 

1850 

LOCATE 

C) 14 

FRI NT 

ìrt; Et 

18 6 0 

RETURN 




1870 

LOCATE 

C.. 12 

PRINT 

E ti Ct 

1880 

LOCATE 

C13 

PRINT 

Ft , C$ 

18 9 0 

LOCATE 

C14 

PRINT 

ì't;. E* 

1900 

RETURN 




1918 

LOCATE 

C, 12 

PRINT 

Iti et 

19 20 

LOCATE 

C, 13 

P R I N T 

" " ;L* 

1930 

LOCATE 

C, 14 

PRINT 

" " ; M * 

1940 

RETURN 




1950 

LOCATE 

C12 

PRINT 

lt; Ct 

i960 

LOCATE 

C .. 13 

PRINT 

F $ ; u $ 

1970 

LOCATE 

C .. 14 

PRINT 

, Et 

1980 

RETURN 




1990 

LOCATE 

C, 12 

PRINT 

B ti C* 

2000 

LOCATE 

C, 13 

PRINT 

Iti G$ 

2018 

LOCATE 

C, 14 

PRINT 

Iti E* 

Ì020 

K L 1 U K N 




2 tì 3 0 

LOCATE 

C, 12 

PRINT 

li li 

2040 

LOCATE 

C, 13 

PRINT 

li li 

2 0 5 0 

LOCATE 

C, 14 

PRINT 

il li 

2 0 6 0 

RETURN 















FISICA 

DEI REATTORI 
NUCLEARI 

Il programma simula il processo di ‘fissione nucleare’ che è 
alla base del funzionamento appunto delle centrali nucleari 
che producono energia. 

La fissione nucleare è una reazione provocata da neutroni 
veloci che colpiscono degli atomi di Uranio 235 i quali si 
spaccano producendo due atomi più piccoli di Bario e Krypto 
ed altri due neutroni che colpendo a loro volta degli atomi di 
Uranio provocano la cosiddetta ‘reazione a catena’. La rea¬ 
zione produce anche energia sfruttata per produrre calore 
ed elettricità. 

Il programma produce un’animazione che può essere vista in 
modo lento (premendo il tasto L) o in modo veloce (tasto V), il 
tasto R fa ritornare il programma allo stato iniziale. 


1900 ■ FISICA DEI REATTORI 

1010 " NUCLEARI 

1020 ' .-.-. 

1030 '■ di Gaetano Marano 

1040 " ------- 

1050 <c> Gruppo Editoriale Jackson 

1060 -■ ..... 

1070 MODE 1 : INK 0,0:INK 1,26 

1080 1NK 2,11 : INK 3,15 

1090 F’EN 2: PAPER 8 : BORDER 1:CL$ 

1180 SOUND 1,0,0,0 : SOUN-D 2,0,0,0 
1110 SOUND 4,0,0,0 

1120 •' ....-. 

1130 Q$ = CHR*<144):W$ = CHR$<227>:P$ = CHR*<2 

31) 
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1140 LOCATE 6,1 : PRINT " SIMULATORE FISSI 
ONE NUCLEARE" 

1150 LOCATE 1,2 : PRINT "-- ------ 


1160 LOCATE 1,3 : PRINT "L.Lento" 

1170 LOCATE 1,5 : PRINT "V.Veloce" 

1180 LOCATE 1,7 : PR I-NT "R.Ripete" 

1190 LOCATE 2 S,3 :P E N 1 ■ FRI NT 01,".Neutro 
rì e 11 

1203 LOCATE 28,4:PEN 2:PRINT PI;".Uranio 
235" 

1210 LOCATE 28,5:PEN 3 : FRINT "o.Bario 13 
9":PEN 2 

1220 LOCATE 28,6:PEN 1 :PRINT W$;"_Krypto 
97":PEN 2 

1230 LOCATE 20,3:P£N 1:PRINT Q$:PEN 2 
1240 LOCATE 28,7:PRINT PI 
1258 LOCATE 13,14:PRINT PI 
126 0 LOCATE 27,14-PRINT P$ 

1270 LOCATE 8,19=PRINT PI 
1280 LOCATE 18,19=PRINT PI 
1298 LOCATE 22,19 :PRINT-P* 

1300 LOCATE 32,19:PRINT p$ 

1318 K!=IN K E VI 

1328 IF K$ = " 1 " OR KI = " L " THEN T = 100:Kf=" 
"; 0 0 T 0 1350 

1330 IF K!= " v " OR KI="V" THEN T=1:KI=" M : 

GOTO 1358 

1340 GOTO 1310 

1350 FOR A=4 TO 7 

1368 PEN 1 

1370 60SUB 1790 

13 80 LOCATE 20,A :PR INT Ql 

1398 LOCATE 20,A-l:PRINT " " 

1408 NEXT A 

1418 LOCATE 19,7 :P E N 3:PRINT "o ":PEN 1: 
LOCATE 21,7:PRINT WI:PEN 2 
1420 PEN 1 







1430 FOR A = 9 TO 14 

1440 603UE 1790 

1450 LOCATE 26-A,A :PRI NT 0$ 

1460 LOCATE 14 + A, A : PRINT- 01 
1470 LOCATE 27-A,A-1 :PRI NT "• " 
1480 LOCATE 13 +A,A-1 :PRI NT " " 
1490 NEXT A 

1500 LOCATE 12,14 :PEN .3 :PRINT "o 
LOCATE 14,14 : P R IN T Wl 
1510 LOCATE 26,14:PEN 3: PRINT "o 
• LOCATE 28,14 :PR INT Wl 
1520 FOR A=16 TO 19 
1530 GOSUB 1790 
1540 LOCATE 46-A,A:PRINT Q* 

1550 LOCATE 26-A,A:PRINT Ql 
1568 LOCATE 14+A,A:PRINT Ql 
1570 LOCATE A,A:PRINT Ql 
1580 LOCATE 41 - A,A-1 : PR I NT " " 
1590 LOCATE 27-A", A-l : PRINT " " 
1600 LOCATE 13 + A,A-l : PRINT " " 
1610 LOCATE -1 + A- r A -1 : PR INT ” " 
1620 NEXT A 

1630 LOCATE 7,19:PEN 3:PRINT "o " 
9,19:PEN 1: PRINT Wl:PEN 3- LOCATE 
PRINT “o "PEN 1 

1640 LOCATE 19,19:PRINT HI: PEN 3: 
21,19: PRINT "o " : PEN 1 ; LOCATE 23. 
T Wl 

1650 PEN 3:LOCATE 31,19: PRINT " 0 
E 33,19:PEN 1:PRINT Wl 
1660 GOSUB 1790 

1670 LOCATE 7,23:PRINT 01;" ",01; 
",01 ;" "; 01;" ",0I," ";Q$;" 

" " ; Ql 

1680 GOSUB 1790 

1690 LOCATE 6,20:PRINT " 


" : P E N 1 
" : PEN 1 


: LOCATE 
17,19: 

LOCATE 
19 : PRIN 

" : LOCAT 

u 

" , 01 , 


1700 LOCATE 6,21 : F'RINT 0$; 


, 01 , 





" . Q$ ; " "Q$" " ;Q*j" M ; QS , " " , Q$ | 

" .. Q$ 

1710 GOSUB 1790 

1720 LOCATE 6/21:PRINT “ 

li 

1730 LOCATE 5,22 :PRINT 8 $; " ";" 

" , Q $ , " “ 3 $ , " •" ;Q$.i" 

“ ; QT 

1740 GOSUB 1790 

1750 LOCATE 5,22:PRINT " 

II 

1760 K*=INKEY$ 

1770 IF K$ = " r" OR K$ = "R" THEN K$="":RUN 
1780 GOTO 17 60 
1790 F 0 R I> = 1 T 0 T 
1800 NEXT D: RETURN 
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PIANO 
4 OTTAVE 
49 NOTE 

Il programma trasforma un computer Amstrad in un Piano a 4 
ottave per un totale di 49 note, che possono essere suonate 
tramite 25 tasti più il tasto SHIFT. 

Il piano va utilizzato con la tastiera in modo minuscole (sen¬ 
za premere quindi il tasto CAPS LOCK), inoltre per ascoltare 
le note ricordarsi di alzare il volume dell’altoparlante interno 
tramite l’apposita manopola sul lato destro del computer. 

I tasti che producono le note sono indicati nella tabella in 
basso (il segno + indica il diesis). 


tasto 

nota 

ottava 

tasto 

nota 

ottava 

Q 

DO 

1 

SHIFT Q 

DO 

3 

2 

DO+ 

1 

SHIFT 2 

DO+ 

3 

W 

RE 

1 

SHIFT W 

RE 

3 

3 

RE+ 

1 

SHIFT 3 

RE+ 

3 

E 

MI 

1 

SHIFT E 

MI 

3 

R 

FA 

1 

SHIFT R 

FA 

3 

5 

FA+ 

1 

SHIFT 5 

FA+ 

3 

T 

SOL 

1 

SHIFT T* 

SOL 

3 

6 

SOL+ 

1 

SHIFT 6 

SOL+ 

3 

Y 

LA 

1 

SHIFT Y 

LA 

3 

7 

LA+ 

1 

SHIFT 7 

LA+ 

3 

U 

SI 

1 

SHIFT U 

SI 

3 

z 

DO 

2 

SHIFT Z 

DO 

4 

s 

DO+ 

2 

SHIFT S 

DO+ 

4 

X 

RE 

2 

SHIFT X 

RE 

4 

D 

RE+ 

2 

SHIFT D 

RE+ 

4 

C 

MI 

2 

SHIFT C 

MI 

4 
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tasto nota 


ottava 


tasto nota 


ottava 


V 

FA 

2 

SHIFTV 

FA 

G 

FA+ 

2 

SHIFTG 

FA+ 

B 

SOL 

2 

SHIFT B 

SOL 

H 

SOL+ 

2 

SHIFTH 

SOL+ 

N 

LA 

2 

SHIFT N 

LA 

J 

LA+ 

2 

SHIFT J 

LA+ 

M 

SI 

2 

SHIFT M 

SI 

» 

DO 

3 

SHIFT, 

DO 


008 •' ** PIANO 4_0TTAVE 49.NGTE 4 1 

010 •" ---- 

1 u 2 0 d i h a e t a ri y M a r a fi o 

1830 ■" ---.. 

10 48 ve > Gruppo Editoriale Jacksorì 

1850 - --- 

1068 MODE 1 : INK 8,1: INK 1,26 
1078 INK 2,11:INK 3,15 
18 8 0 P E N 1 : P h P E R tì : E 0 R D E R 1 ; 6 L S 
18 90 S 0U N D 1,0,0,0:S0 U N D 2,0,8,0 
1100 SOUND 4,0,8,0 

1110 ■' - 

1128 L*=CHR*<211>:C*=CHR$<133>:H*=CHR$<1 
4 3 ) ZI- C H R $‘1209) : D $ — C H R f- 1 o S .> 

1130 PRINT " " ; LI; LI; LI, CI, C$ ; 14$; " PIAN 

0 4-OTTAVE 49. NOTE " ; 14* ; D$ M , Zt, Z$ , Z* 
1148 LOCATE 5,5 

1158 PRINT "ATTENDERE UN'ATTIMO" 

1168 DIM N(255) 

1178 POR A=8 TU 255 
1188 N(A >- 0 :N EXT A 
119 8 R E S T 0 R E 
1208 POR A = 1 T 0 58 
1210 READ K,D 










1228 N<K)=D 
1230 NEXT A 
1240 LOCATE 5,5 
1250 PRINT " 

1260 K$=INKEV$ 

1270 IF K$<>"" THEN K=A8C<K$> 

1280 T=N(K> 

1290 IF T<>0 THEN SOUND 1,T,30,14 

1300 K=0 

1310 GOTO 1260 

1320 DATA 113,956,50,902,119,351 
1330 DATA 51,304,101,758,114,716 
1340 DATA 53,676,116,638,54,602 
1350 DATA 121,568,55,536,117,506 
1360 DATA 122,478,115,451,120,426 
1370 DATA 100,402,99,379,118,353 
1380 DATA 103,338,98,319,104,301 
1390 DATA 110,234,106,268,189,253 
1400 DATA 44,239,81,239,34,225 
1410 DATA 87,213,35,201,69,190 
1420 DATA-82,179,37,169,84,159 
1430 DATA 38,150,89,142,39,134 
1440 DATA 85,127,90,119,83,113 
1450 DATA 88,106,68,100,67,95 
1460 DATA 86,89,71,84,66,80,72,75 
1470 DATA 78,71,74,67,77,63,60,60 









PROGRAMMATORE 
DI SUONI 


Una caratteristica interessante dei computer Amstrad è cer¬ 
tamente il generatore di suoni a 3 voci. 

Con il Programmatore di Suoni è possibile modificare facil¬ 
mente e velocemente i valori che determinano le caratteristi¬ 
che del suono fino ad arrivare al suono desiderato. 

Usando i tasti di cursore a destra e a sinistra è possibile sele¬ 
zionare la voce da modificare, mentre tramite i tasti cursore 
in alto e in basso è possibile scegliere il parametro da modifi¬ 
care. 

Poiché i valori massimi da inserire variano da 15 a 32767, è 
possibile scegliere anche il valore dell’incremento o del 
decremento tramite i tasti U (uno), D (dieci), C (cento) e M 
(mille); è importante tenere presente che se si cerca di 
decrementare un registro che si trova a 15 fino al valore di 8 
dopo aver selezionato un decremento, ad esempio di cento, 
il decremento non avviene finché non si preme il tasto U per 
ritornare al decremento di uno. 

Il parametro selezionato può essere incrementato o decre- 
mentato tramite i tasti + e — (da premere senza SHIFT) oltre 
a questi c’è il tasto A che consente di ascoltare il suono crea¬ 
to fino a quel momento e di avere anche le relative istruzioni 
SOUND ed il tasto CLR che azzera tutto e fa ripartire il pro¬ 
gramma. 

Da notare che all’inizio può sembrare che il programma non 
funzioni, infatti, per sentire ad esempio un suono dalla voce 
1, occorre prima alzare il volume dell’altoparlante incorpora¬ 
to, quindi inserire una frequenza, una durata ed un volume 
per il suono e premere il tasto A. 

Oltre ai parametri da inserire nelle istruzioni SOUND modifi- 
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cabili con questo programma, il generatore di suoni dispone 
anche delle istruzioni ENT ed ENV che consentono rispetti¬ 
vamente di scegliere l’inviluppo di tono e di volume. 

Una descrizione più dettagliata del funzionamento e dell’u¬ 
so delle istruzioni SOUND, ENT ed ENV è presente nel ma¬ 
nuale dei computer AMSTRAD. 

IStfÒ $ P R 0 6 R A M MATURE DI SUO N I t % 

1010 ■- -----.. 

1010 di Gaetano Marano 

1030 •" ---- 

1040 " <c > 8 r appo Editoriale J ac k s on 

1050 -- 

1060 MODE 1 : INK 0,1.1NK 1,26 
1070 INK 2,11:INK 3,15 
1080 PEN 1: PAPER 0 : E0RDER 1 ;CLS 
1030 SOUND 1,0,0", 0 : SOUND 2,0,0,0 
1100 SOUND 4,0,0,0 

1110 ......' 

1120 A $ = C H R $ < 211 >: E $ = C H R$<13 3):D$ = CHR$(1 

4 3 > : E $ = 0 H R $ ( 20 3 ) : F $ = C.H R f < 13 S ) 

1130 6$ = CHR$ C15@ >:T$ = CHR$ <154):I$=CHR*<1 
56) :L$=CHR*<149>:M*=CHR$<151> :N$ = CHR1(15 
7) : 0 i - CHR$<147} :S$ = CHR$(153):Q$ = CHR$<154 

jl 

1140 P $ = C H R $ < 15 8):Z$ = CHR$<155):X* = CHR$<1 

5 3 > 

1150 R J = CHR$ <154) 

1160 T$=T$+T$+T$+T$+T$+T$+T* 

1176 PRINT " " , A*, A$, Al; B* B$, DI, " PR08 
RAHMATORE DI SUONI ",D*,F*,F* ; E*,E*,E* 

1180 W*=G$+T$+P$+T*+P$+T*+I$ 

113 0 C$ = M $ + T $ + X$ + T $ + X $ + T $ + N $ 

1200 V$ = Ù$ + T$ + Z$ + T$ + Z'* + T$ + S$ 

1210 LOCATE 16,4:PEN 0 : PAPER 1; PRINT "VQ 
CE 1";:PEN 1: PAPER 0:PRINT " VOCE 2 V0 
CE 3" 

1220 LOCATE 15,5: PRINT W$ 








1236 

LOCATE 1/6: FRINÌ " TONO_ " 

, L 

1" 

0 " L $ " 

0 ", L1" 0 " , 

LI 

1240 

LOCATE 15.. 7 

F'RINT CI 


1250 

LOCATE 1,8:pRINT " DURATA_ " 

. 1 

i- 

1, " 

6 ",L$," 

0 ", L1 ; " 0 

L * 

1260 

LOCATE 15,9 

P R IN T C1 


12 7 tì 

LOCATE 1,10: 

F'RINT ” VOLUME_ 

li . 

L$, ° 

t. 

Ò " LI' 

0 " , L ! , " 8 

, L 

12 S 0 

L 0 C A T E 15,11 

: F'RINT CI 


1290 

LOCATE 1,12: 

FRINÌ " RUMORE _ 

", 

L *, " 

W " , L1, " 

0 " LI; " 0 

, L 

1 




13 Ù 0 

LOCATE 15,13 

: FRI N T Y1 


1310 

L 0 C A T E 40,6 : 

F'RINT "<" 


1320 

DIM I> < 12,3 ) 



1330 

V = 6 : 1=1 : V = 1 : 

C = 16 


13 4 0 

K1 = I N K E V1 



1350 

IF KIO" " THEN t; = A3C < K1 ) 


13 6 tì 

I F K = 16 THE N 

RUM 


i 3 7 0 

I F K = 6 5 THE N 

60SUB 1850 


1380 

I F K = 242 OR 

K = 2 4 3 THEN 6 U S UE 17 80 


13 9 0 

IF K=240 OR 

K = 2 41 THEN tìU8U E 1470 


1400 

IF K=85 OR K 

= 117 THEN tì u 8U B 16 9 0 


1410 

IF K=68 OR K 

=100 THEN GOSUB 17O0 


14 20 

IF K = 67 OR K 

=99 THEN GOSUB 1710 


14 30 

IF K = 77 OR K 

= 109 THE N 6Ù SU E 1720 


1440 

IF K=59 OR K 

=45 THEN GOSUB 1550 


1450 

K=0:K1="" 



1460 

GOTO 1340 



1470 

H = V 



1480 

IF K = 241 THEN V = V + 2 


1490 

IF K = 240 THEN Y = V-2 


1500 

IF V = 14 THEN 

Y = 6 


1510 

IF Y=4 THEN 

t' = 12 


1520 

LOCATE 40,H: 

F'RINT " " 


1530 

LOCATE 4 0 ,V : 

F'RINT 







1540 RETURN 

1550 IF V = 6 ANI- K = 45 ANI- I- < V, V > - I> = 0 THE 
N I-(V.. V>=KV,V> -I 

1560 IF V = 6 ANI- K = 5'3 ANI- I<V,V>+I<4096 T 
HEN KV J V)*MV I V> + I 

1570 IF Y = 8 ANI K = 45 .ANI I<Y,V>-I>=0 THE 
N KV, V>*MY,V>-I 

1580 IF Y = 8 ANI K = 59 ANI I<V,U) +1<32768 
THEN KV,V)=I(Y,V> + I 

1590 IF Y=10 ANI K=45 ANI I<Y,V>-I>=0 TH 
EN I< V,V ) = 1<V, V ) -1 

1600 IF V=10 ANI K=59 ANI I<Y,V)+I<16 TH 
EN I< Y,Y)=1< V,V) +1 

1610 IF V = 12 ANI K = 45 ANI I<Y,V>-I>=0 TH 
EN I(Y,U)=I<Y,V)-I 

1620 IF V = 12 ANI K = 59 ANI I<Y,V) + I<16 TH 
EN E-CV, y>=MY, V ) + I 
1680 6 0 SU E 1650 
1640 RETURN 

1650 LOCATE C,V : PRINT " 

1660 I$=STR$<I<Y,V)> 

16.70 LOCATE C, V: FRI NT 1$ 

1-680 RETURN 
1690 1=1:RETURN 
1700 1=10:RETURN 
1710 1=100:RETURN 
1720 1=1000 : RETURN 
1730 IF K = 243 THEN V = V + 1 
1748 IF K = 242 THEN V = V-1 
1750 IF V=0 THEN V = 3 
1760 IF V = 4 THEN V = 1 

1770 LOCATE 16,4:PRINT "VOCE 1 VOCE 2 
VOCE 3" 

17 8 0 C = V -t 8 + 8 
17 9 W F' E N 0 : P A P E R 1 

1800 IF V=i THEN LOCATE C,4:PRINT "VOCE 
1" 




1810 IF V = 2 ' THEN, LOCATE C,SPRINT "VOCE 

•j II 

1820 IF V = 3 THEN LOCATE C,SPRINT "VOCE 
3 " 

1830 F'EN 1: PAPER 0 

1840 RETURN 

1850 FOR X =1 TO 3 

1860 IF X=3 THEN X=4 

1870 H*="SOUND " + R16 H T $ ( S T R $ < X ), 1 > 

1880 IF X = 4 THEN* X = 3 
1890 FOR L=6 Tù 12 STEP 2 
19 00 J $ = 8 T R $ < I' ( L , X ) ) 

1910 J$=RIGHT$(J$,LEN<J$)-1) 

1920 H $ = H $ + ","+JI 

1930 IF L=10 THEN H$=H*+",0,0" 

1940 NEXT L 

1950 LOCATE 2,<16+X*2>:PRINT H*;" 

il 

I960 NEXT X 

1970 SOUND 1, D ( 6 .. 1 > , D ( 8,1 ) , D < 16,1 ), 8,0 .. D 

1-i 1 

1980 SOUND 2,D<6,2) , MS , 2) , M 10,2), 8,8, J 

< 12.2 > 

1990 SOUND 4, D < 6 , 3 >, D < 8,3 > .. D< 18,3 >, 0,8, D 
< 12.. 3 > 

2W00 RETURN 









SIMMETRICO 


Questo è un programma di animazione che disegna sullo 
schermo delle linee orizzontali e verticali simmetricamente e 
contemporaneamente su quattro aree. 

1006 *** SIMMETRICO *** 

1610 ' - 

1020 dì basta ri o M a r a n o 

1030 ■" - 

1046 ( c ) 8 r u. p p o E d i t o r i a 1 e J a c k s o n 

1056 •' --- 

1660 MODE 6 : INK M ,01NK 1.. 26 : I NK 2,1 
1070 INK 3,2:1NK 4,4:1NK 5,6 : I NK 6,7 
1080 INK 7,9 = INK 8,11: INK 9,15 
1690 I NK 10,16• INK il,18:1NK 12,24 
1100 INK 13,23.: INK 14,21: INK 15,5 
1110 PEN 1 : F'hPER 0 : EORt'ER O CLS 
1120 SOUNI- 1,6,0,0 : SOUND 2,0,0,0 
1130 SOUND 4,0,0,0 

1140 - 

.1150 RAND0HI2E TIME 
1160 D X = 6 8 : ì> V = 0 
1170 » = INT<RNM1>*2> 

1180 IF 1 = 1 THEN W = D X : DX = IV : I) V = W 
1190 K = 56 +1NT(RNI'< 1 >*265) 

1200 V = 5 6 +1N T < R NI- < 1 > *14 5) 

1210 S R = I N T < R NI 1 ( 1 ) * 4 > 

1220 C = l + I NT < RNI' < 1 > *15 > 

12 3 0 IF S R = 0 THEN tìUS U B 1260 
1240 IF SR = 1 OR SR = 2 OR SR = 3 THEN C-0 ; 0U 
SUE 1310 








12 5 0 

GOTO 1170 


1 2 6 0 

P L 0 T X V ; I 1 R A W X -1 1 X , V - 

l'V, c 

1270 

PLOT 639-X , V : I'RhW 639 

- X + D X, V - D V , C 

12 8 0 

PLOT X, 399-V: MAH X-Ì> 

X,399-V+DV,C 

12 9 0 

PLOT 639 -X, 399-V : £RAW 

639-X + t'X, 399 

V + I'V 

i | 


1 3 0 0 

RETURN 


1310 

P L U T X , V : I* R h W X - ì X , V - 

L-V, C 

13 2 0 

F'LOT 639 ~X , V : TR A W 63 9 

~ X +1 1 X .. V ~ p V , c 

13 3 0 

P L 0 T X , 3 9 9 - V : I> R A N X -1 1 ! 

X, 3 9 9 - V +1 1 V , C 

13 4 0 

P L 0 T 6 3 9 - X t 3 9 9 - V : I> R A M 

6 3 9 - X +1 1 X .. 3 9 9 

Ili *,ll 

T l' T .. 

C 


i v C 

i. • J* V 

R E i !J R N 




TIRO 

ALLA FUNE 


Il tiro alla fune è un gioco per due persone. 

All’inizio appaiono sullo schermo due omini stilizzati con una 
fune. 

L’omino di sinistra viene comandato dal tasto A mentre quel¬ 
lo di destra dal tasto L. Ogni volta che appaiono le due stelle 
al centro dello schermo il giocatore che preme per primo il 
proprio tasto ha la possibilità di tirare i due omini dalla sua 
parte, se però uno dei giocatori preme il proprio tasto prima 
che appaiano le stelle, i due omini si sposteranno nel senso 
opposto favorendo l’avversario. 

Il gioco continua finché uno dei due giocatori riesce a trasci¬ 
nare l’avversario completamente nella propria zona. 

Il tempo di apparizione delle due stelle ed il ritardo tra una ap¬ 
parizione e l’altra sono casuali e vengono stabiliti rispettiva¬ 
mente dalle linee 1340 e 1280 che possono essere even¬ 
tualmente modificate per rendere il gioco più difficile. 


i 00 0 % + TIRO h L L h F U N E T % T 

1010 * - 

10 ZO di UaetariO Mat'aflO 

1030 --- 

10 4 0 ( c u r u p p o Editoriale J a c k s o n 

1050 - 

1060 INK 0,0:1NK 1,26: I N K 2,11: INK 3,24 
1070 ÈORI'ER 1: PAPER 0 : P£N 1: CLS 
1080 SOLINI? 1,0,-0,0 • SOLINI* 2,0,0,0 
1090 SOUND 4,0,0,0 

1100 -■... 

1110 W$ = CHR$<224> : 0$ = CHR$'( 159) : ZI = CHR*<1 


73 








5 5 ) : ri $ - C HR$ i ci T Ut - C HR* (.154 ) ■ J$- C HR$ <. i 5 
1 ) V $ -CH R $ (.157 ) 

1 i £8 Q$ = C H R * < i58 )= CH R $ < 15 0 ) G* = CHR$ ( 1 
53>:R$=CHR$<147 >:P$=CHR*<154> .H*=CHR$<14 


1138 B$=B*+B*:B$ = B$ + B$:B*=B*+B* 

1140 B E $ = B * 

1150 LOCATE 11,6:PEN 1:FRINÌ w*: LOCATE 3 
0,6 FEN 2:FRI NT 14$ 

1160 LOCATE li, 7:PEN 1:FRI NT 0* Z* , E* LO 
ChTE 21,7: PEN 2: FRI NT BE*.;2*;0* 

1i78 L0CATE 11,3 : PEN 1 :PRINT J*,0$■LUCAT 
E '29,8:PEN 2:FRI NT V $ , V $ 

11SW L0C A TE il,9 PEN 1 FRINT R$ ;R$ :LU^A f 
E 2 9 , 9 F’ E N 2 ; F R i N i 0 1 ,6 $ 

1190 F uR T = 1 i0 4 8 
12 80 L0C A TE 8 + T , 18 : PEN 3 : FRI NT X$ 

1210 NE XT T 

1228 LOCATE 1,1 PEN 1 ; F’RINT V$;F*;Q$:LOC 


A T E 2 

3,1 PEN 2: 

FRI NT V 

$■, F $ 

, Q $ 

1238 

LOCATE 1,2 

: P L N 1 : 

PRIN 

T H*,"A";H*:L 

C H 1 L 

38,2:PEN 2 

: FRI NT 

M *, " 

L" ; MI 

12 48 

L 0 C ATE 1,3 

PEN 1 ■ 

P RI N 

T R * .; F * , 6 * : L 0 

ATE £ 

3,3: PEN 2: 

P R I N T R 

t , F* 

f b % 

1250 

RANl'OHIZE 

TIHE • P = 

b 


12 60 

M = -1 




1270 

L 0 C ATE 2tì, 

4 ; P R I N T 

•i 

ii 

1230 

F U R A = 1 r 0 

2 0 8 + R N 

ù ( 1 ) 

4 3 0 8 

12 9 8 

K $ = I N K E V $ 




13 8 0 

IF K$ < > " " 

THE N G0 

T G 1 

3 9 8 

1310 

NEXT A 




1320 

M = 1 




13 3 8 

L 0 C ATE 20, 

4 FÉN 3 

: FRI NT "11" 

1340 

FOR A=1 TO 

30+RND 

( i > 4 

60 

1350 

K $ = I N K E V $ 




13 6 tì 

IF K$<> " " 

THEN G0 

T 0 i 

3 9 b 

13 7 0 

N E X T A 




13 3 0 

G 0 T 0 12 6 8 







13 9 0 

IF K*="A" OR K$="*" THÈN P = P-H 


14 68 

IF K$ = "L" OR K* = "l" THEN P = P + H 


1416 

LOCATE 1,6: FRI NT " 

li 


1426 

LOCATE P,6PEN 1:PRINT M$ = LOCATE 

p+ 

19,6: 

PEN 2:FRI NT M$ 


1 4 3 6 

LOCATE 1,7 PRINT " 

il 


14 48 

L u C A T E F', 7 P E N 1 : F' R IN T U i -, i $ ; £ $ 

LOC 

Alt P 

+10,7 ' P £ N 2 : P R IN T E B $ , Z $ , U $ 


1458 

L 0 C A T E 1, tì F R I N f 

li 


14 6 0 

L0C A T E P , S : PEN 1 ; PR I NT J $ ; 3 $ '■ L0 C 

A T E 

P + 1S 

,3:PEN 2:PRINT V!,V $ 


14 70 

L 0 C A T E 1,9 : P R I N i " 

n 


i 4 3 0 

L0CAIE P,9 ; PEN 1 PRIN 1 R $ ,RT ; LUC 

ATE 

P +1 3 

, 9 : PE N 2 P RIHT tì*,tì$ 


i 4 9 8 

Ih P = 1 tìR P -21 THE N tìUTU 151tì 


i 5 0 6 

tì tì Tu 12 6 tì 


1518 

L U Ch i E 17,4 


15 26 

I F P = 1 T ri E N P t N 1 : P R I N T " v 1 i fi c © 

A " 

15 30 

I F P - 2 i THE N P E N 2 • P R IN T " 0 i ri c e 

L" 

15 4 0 

L 0CAIE IO,1S PE N 1 ; PK INT "PRE ME R 

E tì 

P E R 

tì 10CARE" 


1550 

K f - I N K E V $ 


15 68 

IF K $ < > " 6 " ANI K IO" y " THEN GOTO 

.-i c 

X _> 

J- i-J 

,1 r-> 



1 J- i V 

w Un 











ROULETTE 


Il programma realizza una Roulette completa di sonoro. La 
richiesta di un numero avviene premendo il tasto N. 

1008 ' ** ROULETTE :* * % 

1010 •" ...- 

1020 ■' di Gaetarvo Marano 

1030 ■"------ 

1040 ' < c > Gruppo Editoriale Jackson 

1050 •" ...... 

1060 MODE 1 :INK 0,18:INK 1,0 
1070 INK 2,6:IKK 3,26 
1080 PEN 3: PAPER 1 : BORDEP. 1:CLS 
1090 SOUND 1,0,0,0:SOUND 2,0,0,0 
1100 SOUND 4,0,0,0 

1110 ■" --- 

1120 DIM P(37):DIM 1(37):DIM NUM*<37> 

1130 0 = 1 :L-ll:H = 9 
1140 FOR A = 3 5 3 TU 0 STEP -9.729 
1150 K = P I /"180 *h 
1160 X = 2 6 0 * C 0 3 ( K ) + 315 
1170 V = 180*S IN < K) + 210 
1180 READ P,I,N$ 

1190 P(C)=P : I (0 = 1 : NUM*(0=NS : C = C + 1 
1200 IF P=3 OR P=0 THEN 6ÙSUB 1360 
1210 X=X-1 
1220 PEN I 

1230 N=ASC(LEFT$(N$,i>)-48 
1240 GOSUB 1680 
1250 X = X +15 

1260 N=ASC(RI6HT$(N$,1)>-48 








1 2 V 8 

8 U U E 16 y 8 


12 8 0 

N £ X T 6 


12 96 

r' E N 3 


i 3 8 8 

L = 18 : H -19 


i 318 

R = 50 + 1NTCRNI*< 1 > 1 75 ) 


13 2 8 

K $ = I N K £ V $ 


13 3 0 

IF K$ = " N " OR i<$ = " n " THEN GOS 

UB 1428 

13 4 8 

P E N 3 


13 5 8 

6 0 T u 1318 


13 6 8 

i u R K - V + Fi / 2 ? T u V - H + 2 - ■; H. 2 ) 

STEP - 

1 



1378 

r‘ L N r 


L J v U 

P L O T X - < l / 2 > . K P l> R 8 Pi X + L % 2 + 

(L/2) , K 

. P 



1398 

NEXT K 


14 8 8 

P t N 1 


1410 

i< E r u R li 


1420 

V = 0 


14 3 8 

F 0 R. F -1. i u R t 9 . 7 c. ? + 6 i t F 9 . 

7 2 9 

14 4 8 

y=y+i :if y=ss then y=i 


14 5 8 

P L Ù T H , . 1 


14 3 8 

PLOT A +1,B , 1 


1 4 Y 0 

P LOT h , E +11 


14 S 8 

P L u T h +1.. B +1, 1 


14 9 0 

K = P I /18 81F 


1500 

8 = 2 3 81.C 0 S ( K ) + 3 3 8 


1518 

E = 2 0 0 -15 8 * S i fi < K > 


15 2 8 

P L 0 T h , B f 3 


15 38 

PLOT 8 +1,E,3 


1548 

PLOT h, B +1.. 3 


15 58 

PLOT 8 +1.. B +1,3 


1560 

FOR T=1 TU 38 NEXT T 


1578 

NEXT F 


15 S 0 

X = 2 7 0 : V = 18 ó : I = I<V) :P = P<y> 


1590 

N1 = N U M $ < y > 


1 6 8 8 

GOSUB 1368 


1610 

N = 8 S C ( L E F T % ( N $ , 1 ) ) - 4 8 


78 




1620 G0SIJB 1680 
1630 X=X+22 

1640 N=ASC<RIGHT*<N*,1>>-48 
1650 GOSUB 1630 
1660 P EN 3 
1670 RETURN 

1680 IF N = -16 THEN RET-URN 
1690 IF N=0 OR N=2 OR M=3 OR N=5 OR N=6 
OR N = 7 OR N = 8 OR N = 9 THEN PLOT X,V,I:DRA 
U X + L , V , I 

1700 IF N = 2 OR N = 3 OR N = 4 OR N = 5 OR N = 6 
OR N = 8 OR N = 9 THEN PLOT X,V-H,I :DRAW X + L 
, V-H, I 

1710 IF N = 0 OR N = 2 OR N = 3 OR N = 5 OR N = 6 
OR N = 8 OR N = 9 THEN -PLOT X, V-H-H, I DRAW X 


+L,V-H-H,I 

1720 IF N = 0 OR N = 1 OR N = 2 OR N = 3 OR N = 4 
OR N = 7 OR N = 8 OR N = 9 THEN PLOT X + L.. V , I : D 


RhW X + L.. V -H, I 

1730 IF N=0 OR N=1 OR N=3 OR N=4 OR N=5 

OR N=6 OR N=7 OR N=8 OR N = 9 THEN PLOT X+ 

L,V-H,I :DRAW X + L,V-H-H,I 

1740 IF N = 0 OR N = 2 OR N = 6 OR N = 8 THEN F'L 

OT X , V-H , I : DRAW X, V-H-H, I 

1750 IF N = 0 OR N = 4 OR N = 5 OR N.-6 OR N = 8 

OR N = 9 THEN PLOT X,V,I :DRAW X,V-H,I 

1760 RETURN 

1770 DATA 1,2,"5 ",3,1,"24",1,2«"16" , 3,1 

11 O O •* A •• -1 '• 

, • j O , 1 , e. , 1 


1780 DATA 3,1,"20" 
, u 9 M ,3,1,"22" 

1790 DATA 1,2,"18" 
,"28",1,2,"12" 

1800 DATA 3,1,"35" 


1 . 2 , " 14 ", 3 , 1 ," 31 ", 1,2 

.-i ii ■-} q ii •■) ii 7 ii o -1 

.« 1 / c- s t *L f Sm / I t -J f X 

1.2, " 3",3,1,"26",Ò,1 


0 ,, ,1,2, ,, 32" 

1810 DATA 3,1,"15",1,2,"19",3,1," 4",1,2 


, "21",3,1,“ 


:• « 



1820 £AT A 1,2,"25",3,1,"17".1,2,"34",3,1 
, "6 ", 1 , 2 , " 27 " 

1830 ChTA 3,1,"13",1,2, "36",3,1. "Il" .1,2 
, "38"; 3,1,'"8 " 

1840 I>ATA 1,2, "23", 3,1, "10“ 





FLIPPER 

GIAPPONESE 


In questo Flipper Giapponese, trenta palline cadono dall’al¬ 
to attraverso una serie di chiodini, finendo in modo casuale 
su dei punteggi diversi, punteggi che vengono automatica- 
mente sommati al totale. 


1088 •' ttt FLIPPER GIAPPONESE *** 

1818 ----- 

1028 di uaetano Mar ano 

1838 •' ---- 

1840 r \ c> Gruppo Editoriale Jack5on 

1058 •" --- 

1060 MODE 1 INK 8 .t 1 = IN K !.. 26 
1070 INK 2,6:1NK 3,24 
1080 PEN 1: PAPER 0 : EORD.ER 1: CLS 
10 9 tì S 0 U N I> 1, tì , 0,0 : S 0IJ NI» 2,0,0,0 
1100 SOLINI' 4,0,0,0 

1110 •- ....... 

1120 N$ = C HR$ <143 > 

1130 N $ = N$ + N $ + N * + NI + N$ + N$ 
t±4 0 FETI 3 

1150 LOCATE 14,2: PRINT N$.;" ",N$ 

1168 A $ = C H R $ <155 > + C H R $ < 3 2 > 

1170 A$=A$+h$+AI 

1180 f'EN 1 

1190 EOE 4=0 TU 12 

1200 LOCATE IE-h,4+A:PRINT A* 

1 21 0 A*=A$ + C H R $< 1 5 5) + C H R $< 3 2 > 

1220 MEXT A 

1230 PAPER 3:PEN Ù 







1240 LOCATE 6,17 PRINT " 9 2 1 
1 2 9 " 

1250 LOCATE 6,13 PRINT " 9 5021 
1 2 0 5 9 " 

12étì L 0C A T E 6,i9 P RIN T " 9 0 0 5 2 6 5 5 
6 2 5 0 0 9 " 

1270 PEN 1 : PAPER 0 

1280 LOCATE 10.. 21:PRINT " PREMERE G PER P 
ART IRE " 

1290 K$ =INKEV$ 

1300 IF K$<> " 6 " AN J> K$0"'3" THEN GOTO 12 
90 

1310 LOCATE IO.. 21 PRiNT " 

<l 

1320 FEH 0 : PAPER 2 :L0CATE 13,23 PRINT “P 
Ij N T E G GI 0 " : P E N 1 • PAPER 0 

1330 3 = 0 : RANl'OHIZE TIME 
1340 F$ = CHR$ < 231) 

1350 POR A=1 TO 30 
1360 L = 3 ;C = 2@ 

1370 LOCATE 2.. 3 : FRI NT A;" " 

13 8 0 P E H 2 

1390 LOCATE 20,2-PRINT F$:FOR T=1 TO 458 
: NEXT T: LOCATE 2tì,2 '. PRINT " " LOCATE 20, 
SPRINT FI : LOCATE 20,3:PRINT " " 

1400 FOR K=1 TO 13 
1410 H = RNM1> 

1420 IF H<9.5 THEN H=-l 
1430 IF H> = 0.5 THEN H = 1 
144tì LOCATE C,L-PRINT " " 

1450 L=L+1 

1460 LOCATE C + H..LPEN 2 = PRINT F $ ■ PEN 1 
1470 PRINT CHRK7) 

1480 C = C + H 
1490 NEKT K 


1500 

IF 

C = 19 

OJ 

II 

<_> 

CìZ 

THEN 

3 = 8 + 5 

1510 

IF 

C = 17 

0 R C = 2 3 

THEN 

3 = 3 + 6 

15 20 

IF 

C =15 

0 R C =. 2 5 

THEN 

8=3+12 





\ n mi 


1530 IF C = 13 OR 0 = 27 THEN S = S + 25 
1540 IF C=ll OR 0 = 29 THEN 5=3+108 
1558 IF 0=9 OR 0=31 THEN 5=5+250 


OR 

70 b % = ’o T R $ 3 > 
15S0 LO0hTE 0 , L 
1590 NEKT A 
16 0 0 6 0 T 0 12 8 0 


=33 THEN 5=5+999 
LOCATE 3 tì, 2 3 : P R'I N T 
FRI NT " " 


6 $ 











ROM BOSPIR ALE 


Altra animazione è Rombospirale che disegna e cancella al¬ 
ternativamente e in continuazione, una spirale a forma di 
rombo formata da caratteri e simboli scelti casualmente. 

1000 " R0MSOSPIRALE *** 

1010 ... 

1020 ■' di Gaetano Marano 

1030 •' --- 

1040 < c > Gruppo Editoriale Jackson 

1050 ' .----- 

1060 MODE 1 : INK 0,0:INK 1,11 
1070 INK 2,6 : INK 3,24 
1080 PEH 1:PAPER 0 :BGRDER 1:GLS 
1090 SOUND 1,0,0,0 : SOUND 2,0,0,0 
1100 SOUND 4,0,0,0 

1110 •" .-.- 

1120 C = 1 
1130 GOSUB 1380 
1140 POR P = 1 T0 11 

1150 LOCATE P+10,14-P:PRINT CHR$(X> 

1160 NEXT P 

1170 FUR N=1 TÙ 11 STEP 2 
1180 GOSUB 1380 
1190 FOR P = 1 T0 12-N 
1200 LOCATE 28 + P , 1 + P + N . PRINT CHR*00 
1210 NEXT P 
1220 GOSUB 1380 
1230 FOR P=1 TO 12-N 

1240 LOCATE 33-P-N,12 + P:PRINT CHR1<K) 

1250 NEXT P 







1260 

GGSUB 1380 


1270 

FOR P = 1 IO 11-N 


1280 

LOCATE 22-P,25-P-N:PRINT 

CHR$ < X) 

1290 

N£XT P 


1300 

GOSUB 1380 


1310 

FOR P=1 TO 11-N 


1320 

LOCATE 10+P+N,15-PPRINT 

CHR$(X> 

1330 

NEXT P 


1340 

NEXT N 


1350 

C = C* < -1 ) 


1360 

X = 32 


1370 

GOTO 1130 


1380 

IF C = 1 THEN X = 33+ INT(RND< 

:i)*222) 

1390 

PEN 1+INT(R'NIK1>*3> 


1400 

RETURN 



































Gli Amstrad presentano un ottimo rapporto prezzo/prestazioni e 
caratteristiche tecniche molto significative: grafica ad alta risolu¬ 
zione, generatore di suoni, eccetera. Particolarmente interessan¬ 
te é il Locomotive BASIC che, oltre a essere tra i BASIC più 
completi, dispone anche di alcune innovazioni come le istruzioni 
AFTER e EVERY che offrono all'utente alcune forme di multita¬ 
sking: il particolare l’eleborazione alternata di più parti del pro¬ 
gramma. 

Le molte caratteristiche avanzate di questa macchina vengono 
sfruttate nei programmi presentati, vari tra loro: si va dalla grafi¬ 
ca, alle utility, ai giochi. Programmi quindi pronti all’uso da analiz¬ 
zare, far girare, giocarci. .. 

Elenco dei programmi: 

• Istogrammi verticali 

• Istogrammi orizzontali 

• Cilindri 3D 

• Design caratteri 

• Disegnatore grafico 

• Plotter 

• Curve matematiche 

• New York 

• Disegni di linee 

• Italia 

• Numeri digitali 

• Lettura veloce 

• Cronometro 

• Scritte pubblicitarie 

• Contapezzi 

• Fisica dei reattori nucleari 

• Piano 4 ottave 

• Programmatore di suoni 

• Simmetrico 

• Tiro alla fune 

• Roulette 

• Flipper giapponese 

• Rombospirale 


L. 29.000 


Cod. CC330 


ISBN 88-7056-436-3 
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